Code kürzen

[AlexII]

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!

[himitsu]

"kürzer"?
ist verboten.
https://quality.embarcadero.com/browse/RSP-39825



Nja, im Delphi
Frag mich nicht was das "Böse" alles wie kann.

Delphi-Quellcode:

//var Autos: array of array of string; 
//var Autos: array of TArray<string>;
var Autos: TArray<TArray<string>>;

Es könnte alles sehr kurz werden, wenn es so Einiges geben täte
for var Line in TFile.ReadAllLines(Application.ExePath + 'ListAllAutos.txt') do Autos[] := Line.Split(';');

https://quality.embarcadero.com/brow...0%22exepath%22
und xxx[] := yyy; oder xxx += yyy; als Shortcut für xxx := xxx + [yyy]; , so wie es fast jede andere Sprache kennt.


OK, inzwischen gibt es einige string-like Operatoren auch für Arrays.

Delphi-Quellcode:

var AllLines := TFile.ReadAllLines(ExtractFilePath(ParamStr(0)) + 'ListAllAutos.txt');
for var Line in AllLines do begin
  Autos := Autos + [AllLines[i].Split(';')];

Delphi-Quellcode:

var AllLines := TFile.ReadAllLines(ExtractFilePath(ParamStr(0)) + 'ListAllAutos.txt');
SetLength(Autos, Length(AllLines));
for var i := 0 to High(AllLines) do begin
  Autos[i] := AllLines[i].Split(';');

[AlexII]

Mächtig
Muss ich mal ändern. Riesen Dank! Schreibe später was daraus geworden ist.

[AlexII]

Irgendwie scheint Lazarus "ReadAllLines" nicht zu kennen.

[himitsu]

Bissl schade,
aber kannst'e dort doch auch schnell mal einbauen / einbauen lassen.

TFile.OpenRead (Stream), OpenText (StringStream), ReadAllBytes (TBytes), ReadAllLines (StringArray) und ReadAllText (ein String) sind schon nett.
https://docwiki.embarcadero.com/Libr...e.ReadAllLines

[Der schöne Günther]

Ich hätte erst einmal angefangen, es lesbarer zu machen und den Variablen Namen statt Buchstaben zu geben.