Memo u. DB

[Tau]

Hallo Leute

kann mir vielleicht jemand helfen ich glaub ich sehe den Wald vor lauter Bäume nicht mehr. :wall:

ich versuche Daten aus einer MS Access Tabelle in ein Memo zu exportieren mit folgendem Code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOTable1.Active := True;
   while not ADOTable1.Eof do
      begin
      Memo1.Text := 'Demo 1 ' +#13#10
                         +'Demo 2 ' +#13#10
                         +'Demo 3 ' +ADOTable1Text1.Value +''';' +#13#10
                         +'Demo 4 ' +ADOTable1Text2.Value +''';' +#13#10
                         +'Demo 5 ' +ADOTable1Text3.Value +''';' +#13#10
                         +'Demo 6 ' +#13#10
                         +'Demo 7 ' +#13#10
                         +'Demo 8 ' +#13#10;
      ADOTable1.Next;
      end;
   ADOTable1.Active := False;
end;

Es wird immer nur ein Datensatz exportiert warum ?

mfg
Tau

[Luckie]

Ich gehe mal davon aus, dass du immer nur den letzten siehst? :mrgreen:

Die eigenschaft Text bezieht sich immer auf den gesamten Inhalt des Memos, das heißt bei jedem Schleifendurchlauf erstezt du den Inhalt des Memos mit dem aktuellen Datensatz. :wink:

Delphi-Quellcode:

Memo1.Lines.Add(...);

Sollte es tun für jede Zeile.

[Tau]

Hallo Luckie

Danke für den Tipp :witch: es funktionirt.

bist du noch auf oder schon wieder

mfg
Tau