Überschreiben

[himitsu]

Über vorhandenen Objekte kann man sich noch mehr ersparen.

Delphi-Quellcode:

Procedure TForm1.LoadHighScore(aHighScoreFilename : String);
Var
  csv : TStringList;
  i : Integer;
Begin
  csv := TStringlist.Create;
  Try
    csv.LoadFromFile(aHighScoreFilename);
    For i := 0 To csv.Count - 1 do begin
      StringGrid1.Rows[i].Delimiter := ';';
      StringGrid1.Rows[i].DelimitedText := csv[i];
    End;
  Finally
    csv.Free;
  End;
End;