Registriert seit: 7. Apr 2003
Ort: Wuppertal
160 Beiträge
Delphi 2005 Enterprise
|
23. Apr 2003, 20:39
Delphi-Quellcode:
Text:= TStringList.Create;
Text.LoadFromFile('Pfad'\.txt');
//wenn der Text in eine Tabelle soll
Tabelle.open;
anz:= Text.Count;
for i:=0 to anz-1 do
with Tabelle do
begin
z:=Text.Strings[i];
try
//Das kannst du dir selber basteln
AppendRecord([copy(z,1,9),
Copy(z,9,8),
copy(z,17,8) ]);
except end;
end;
|
|
Zitat
|