Delphi Tabelle als txt speichern

[Bedrock]

Hallo

Delphi Tabelle als txt speichern.
Weis jemand wie ich eine Delphi Paradox Tabelle als txt speichern kann.

[Hansa]

dazu schreibst Du einfach alle Felder der Tabelle Feld für Feld in eine Zeile der Textdatei.

[MrSpock]

Hallo Bedrock,

als zusätzlichen Hinweis zu der Antort von Hansa:

Wenn du den Fields-Array benutzt, kannst du den Inhalt aller Felder eines Datensatzes in einer Schleife speichern:

Delphi-Quellcode:

myTable.First;
while not myTable.EOF do
begin
  for i:=0 to myTable.FieldCount-1 do
    zeile := myTable.Fields[i].AsString+';';
  Writeln(myFile, zeile);
end;

Außerdem gibt es die Methode GetCurrentRecord, die einen kompletten Datensatz in eiunem Puffer zurückliefert.

Dann kannst du dir noch BatchMove anschauen, damit kannst du ebenfalls den Inhalt einer Paradoxdatei in eine Textdatei schieben.

[Bedrock]

Hallo

Danke schon mal für die rasche Antwort.
Aber wie schreib ich die Tabelle Zeile für Zeile in ein Textfile??

[r_kerber]

In etwa so:

Delphi-Quellcode:

Tabelle.First;
Repeat
  WriteLn (Datei, TabelleFeld1.AsString, TabelleFeld2.AsString, ...);
  Tabelle.Next;
Until Tabelle.Eof;

[MrSpock]

Hallo Bedrock,

Zitat:

Aber wie schreib ich die Tabelle Zeile für Zeile in ein Textfile??

Äääh... Die Frage hab ich doch oben beantwortet. Der Code schreibt Zeile für Zeile in eine Textdatei und schließt jedes Feld mit einem ";" ab. Was verstehst du an dem Code-Schnipsel nicht?

[r_kerber]

Zitat von MrSpock:

Äääh... Die Frage hab ich doch oben beantwortet.

Ich muß doch blind gewesen sein, dass ich das auch noch mal geschrieben habe.

[Bedrock]

oh man
ich glaub ich bin zu blöd.
Also bei mir sieht das ganze jetzt so aus:

Delphi-Quellcode:

procedure TForm1.CreateBtnClick(Sender: TObject);
begin
 Table1.First;
Repeat
  WriteLn ('d:\SMS Alarmierung\SAT_Datenbank.dbf', table1.text.AsString, tabele1Alarm.AsString, ...);
  Table1.Next;
Until Table1.Eof;;

end;

Hab nun das Problem mit der tabllenfeld eingabe??
Meine Spalten lauten: Text und Alarm.

Weiters wie bekomm ich das dann in eine Memo oder so??

[MrSpock]

Hallo r_kerber,

naja, dein Code ist ja eine Alternative, weil er den Fields Record nicht benutzt. Und es ist immer gut Alternativen zu verstehen.

[r_kerber]

Warum schreibst Du es nicht gleich in ein Memo mit
Memo.Lines.Add (Feld1.AsString + Feld2.AsString); Ansonsten gibt es für TMemo.Lines die Funktionen LoadFromFile und SaveToFile.