Überschreiben

[FredlFesl]

So macht man das seit Delphi 2 eigentlich.

Delphi-Quellcode:

Procedure TMyForm.LoadHighScore(aHighScoreFilename : String);
Var
  csv, csvRow : TStringList;
  i : Integer;

Begin
  csv := TStringlist.Create;
  csvRow := TStringList.Create;
  Try
    csvRow.DelimiterChar := ';';
    csv.LoadFromFile(aHighScoreFilename);
    For i := 0 To csv.Count - 1 do begin
      csvRow.DelimitedText := csv[i];
      MyHighScoreStringGrid.Rows[i] := csvRow;
    End;
  Finally
    csvRow.Free;
    csv.Free;
  End;
End;

Klar, man kann auch komplett auf die Vorteile von Delphi verzichten und so tun, als ob es keine netten vorgefertigten Klassen gibt.

[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;