DataSource der køre med lykke

delphimann> hvad er en lykke (leger selv med delphi)

altså for være gang den finder et row skal den udføre en action... og det skal den ind til den har gjort det ved alle rows...

  with DataSource1.DataSet do
    First;
  begin
    while not Eof do
    begin
      // din kode
      Next;
    end;
  end

www.udvikleren.dk der skulle være noget med lykker og meget andet

  with DataSource1.DataSet do
  begin
    First;
    while not Eof do
    begin
      // din kode
      Next;
    end;
  end

Hov det skal være sådan her

Hvordan siger jeg den skal lave en knap ??

create.button eller hvad ??

Sådan laver du knapper:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MyClickHandler(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  MinKnap: Array[0..10] of TButton;
  x: Integer;
begin
  for x:=0 to 6 do begin
    MinKnap[x]:=TButton.Create(Form1);
    with MinKnap[x] do begin
      parent:=self;
      Caption:=\'Knap \'+inttostr(x);
      Width:=60;
      Height:=20;
      Left:=30;
      Top := 20+x*40;
      Visible:=True;
      OnClick := MyClickHandler;
    end;
  end;
end;

procedure TForm1.MyClickHandler(Sender: TObject);
begin
  ShowMessage(\'Hello world\');
end;
end.

det virker ikke ordenligt.... den skal hente et row og skrive +DataSource1.DataSet.FieldByName(\'ven_id\').AsString

Er ikke med på hvad der ikke virker ordentligt, måske nedenstående kan hjælpe, ellers forklar lidt nærmere

with DataSource1.DataSet do
begin
  First;
  while not Eof do
  begin
    //Her creater du dine Buttons
    ButtonXXX.Caption := FieldByName(\'ven_id\').AsString;
    Next;
  end;
end;

ok den skriver bare 2 på alle 7 knapper... jeg ved ikke hvorfor der kommer 7 knapper

Du må jo have 7 poster i din DB, prøv at paste din kode ind

mySQLQuery3.SQL.Text := \'Select * from venner where min_id = \'\'\'+DataSource1.DataSet.FieldByName(\'user_id\').AsString+\'\'\'\';
mySQLQuery3.Active := true;
with DataSource3.DataSet do
begin
  First;
  while not Eof do
  begin
    for x:=0 to 6 do begin
    MinKnap[x]:=TButton.Create(Form1);
    with MinKnap[x] do begin
      parent:=self;
      Caption:= FieldByName(\'ven_id\').AsString;
      Width:=60;
      Height:=20;
      Left:=30;
      Top := 20+x*40;
      Visible:=True;
      Next;
  end;
  end;
  end;
  end;

er det nok eller vil du ha\' det hele

mySQLQuery3.SQL.Text := \'Select * from venner where min_id = \'\'\'+DataSource1.DataSet.FieldByName(\'user_id\').AsString+\'\'\'\';
mySQLQuery3.Active := true;
with DataSource3.DataSet do
begin
  x := 1;
  First;
  while not Eof do
  begin
    MinKnap[x]:=TButton.Create(Form1);
    with MinKnap[x] do
    begin
      parent:=self;
      Caption:= FieldByName(\'ven_id\').AsString;
      Width:=60;
      Height:=20;
      Left:=30;
      Top := 20+x*40;
      Visible:=True;
    end;
    Next;
    inc(x);
  end;
end;

jjjaaahhhh kan jeg få dig til at beskrive hvad der skere.... kunhvis du vil... tak det virker