OK habs gescheckt. Mercy
Habe vollgende Lösung
Delphi-Quellcode:
procedure TForm1.CreateBtnClick(Sender: TObject);
begin
Screen.Cursor:= crHourGlass;
Table1.First;
memo.Clear;
CreateBtn.Enabled:= false;
repeat
Memo.Lines.Add (table1.Fields[0].AsString + table1.Fields[1].AsString + table1.Fields[2].AsString + table1.Fields[3].AsString + table1.Fields[4].AsString + table1.Fields[5].AsString + table1.Fields[6].AsString + table1.Fields[7].AsString + table1.Fields[8].AsString + table1.Fields[9].AsString + table1.Fields[10].AsString);
Table1.Next;
Until Table1.Eof;;
begin
Memo.Lines.SaveToFile('d:\Sms Alarmierung\SAT.txt');
Screen.Cursor:= crDefault;
CreateBtn.Enabled:= true;
end;
end;
Kann mir noch jemand sagen wie ich die Spaltenbezeichnung einfügen kann.
Danke für die Hilfe
Gruß Bedrock