Hallo Leute,
ich habe folgenden Code hier geschrieben, und würde ihn gerne etwas verschlanken. Kann mir dabei jemand helfen? Ich frage mich z.B., ob man da nicht ohne TStringArray irgendwie auskommen könnte? Habe aber keine Idee wie? Habt ihr irgendwelche Überlegungen dazu?
Der Inhalt der txt-Datei sieht so aus:
Zitat:
1;2
3;4
5;6
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ListAllAutos: TStringList;
i, j: Integer;
s: String;
sr: TStringArray;
begin
ListAllAutos := TStringList.Create;
try
ListAllAutos.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'ListAllAutos.txt');
s := ListAllAutos[0];
sr := s.Split(';');
SetLength(Auto, ListAllAutos.Count, Length(sr));
for i := 0 to ListAllAutos.Count - 1 do
begin
s := ListAllAutos[i];
sr := s.Split(';');
for j := 0 to Length(sr) - 1 do
Auto[i, j] := sr[j];
end;
finally
ListAllAutos.Free;
end;
end;
Vielen Dank!