Txt datei in Paradox einlesen

[MrSpock]

Hallo Bedrock,

es die Zeilen sind leider verschwunden . Jede Zeile wird der Liste "strings" zugewiesen und hinterher wieder überschrieben. Du musst also das Ergebnis der Zerlegung erst wieder in die Tabelle schreiben:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var   I: Integer;
  Strings: TStringArray;
   ein_datei:file of char;
begin
  assignfile (ein_Datei, 'c:\sms\sat.txt');
  reset (ein_datei);
  while Not EOF(ein_datei) do
  begin
     Readln(ein_datei, zeile);
     Strings := Split(zeile, Chr(9));
     if Length(Strings) > 0 then
     begin
       myTable.Append;
       for I := Low(Strings) to High(Strings) do
         if I < myTable.FieldCount then
           myTable.Fields[I].AsString := Strings[I];
       myTable.Post;
     end
  end;
   CloseFile(ein_datei);
end;

... ist nicht getestet!