Der Code läuft,
aber die RichEdit-Kompi bleibt leer...
Hier falsch?:
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*
