RICHEDIT zeilen einfügen

[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;