RICHEDIT zeilen einfügen

[JSB]

Der Code läuft,
aber die RichEdit-Kompi bleibt leer...

Hier falsch?:

Delphi-Quellcode:

reeximport.Lines[1]:=

Delphi-Quellcode:

var count, line: Integer;
begin
    line:= 1;
    count:= qTelefonliste.RecordCount;

    reeximport.Clear;
    qTelefonliste.First;
    reeximport.Lines[1]:= ('ID; RUCKRUF; DATUM; ZEIT; NAMEFIRMA; NOTIZ; PRIORITAT; BEZUGSPERSON; ABTEILUNG; BEREICH; ERLEDIGT;');

    repeat
      begin
        line:= line+1;
        reeximport.Lines[line] :=(qTelefonliste.fieldbyname('id').asstring + '; ');
        qTelefonliste.Next;
      end;
    until
      (line - 1)=count;

    ShowMessage (reeximport.Text);

*HILF*
:(

[Sharky]

Hai JSB,

der "Titel" deines Threads ist etwas wenig aussage kräfig ;-)

Um einem Memo eine neue Zeile zuzufügen benutzte die Methode .Add().

[JSB]

Danke...
...aber:

Ich muss ja jede Zeile einzelnd einfügen können. Mit "ADD" füge ich den kompletten Text ein... :cry:
Jede Zeile wird woanders ausgelesen (siehe code) :!:

:wiejetzt:

[Sharky]

Hai JSB,

versuche es mal so:

Delphi-Quellcode:

begin
    reeximport.Clear;
    qTelefonliste.First;
    reeximport.Lines.Add ('ID; RUCKRUF; DATUM; ZEIT; NAMEFIRMA; NOTIZ; PRIORITAT; BEZUGSPERSON; ABTEILUNG; BEREICH; ERLEDIGT;');
    While not (qTelefonliste.Eof) do
      begin
        reeximport.Lines.Add (qTelefonliste.fieldbyname('id').asstring + '; ');
        qTelefonliste.Next;
      end;
    ShowMessage (reeximport.Text);

end;

[JSB]

dank!
klapt suppi!
eof= noch nicht gekannt(=besser als var)
:cheers: