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!