Ohne Fehlerbehandlung und ungetestet:
Delphi-Quellcode:
procedure DateiEinlesen(const Dateiname: string);
var
LineList, FieldList: TStrings;
i, j: integer;
begin
//Zeilen
LineList := TStringlist.Create;
try
LineList.LoadFromFile(Dateiname);
//Felder
FieldList := TStringlist.Create;
try
FieldList.Delimiter := #9;
FieldList.StrictDelimiter := true;
for i := 0 to LineList.Count - 1 do
begin
//Zeile in Felder zerlegen
FieldList.DelimitedText := LineList[i];
//...und durchgehen
for j := 0 to FieldList.Count - 1 do
(* etwas mit dem Feld tun *)
end;
finally
FieldList.Free;
end;
finally
LineList.Free;
end;
end;
hi und danke,
deines kann ich schon mehr nachvollziehen.
dennoch erschließt sich mir nicht wie ich dann zum beispiel das feld [5,10] aufrufen soll.
also nach dem alles gemacht wurde.
ansonsten habe ich angefangen mir ein dyn arry zu bauen.
so kann ich das schon mit text füllen und ausgeben.
brauche nur noch nach den tabs zu suchen und alles in die felder eintragen.
es sei denn du kannst mir das idiotensicher aufzeigen
- deine lösung würde auf jeden fall den QT verkürzen
grüße!