Hallo liebe Delphi-PRAXIS'ler,
ich habe mal wieder ein Problem:
Ich möchte für ein Spiel eine Highscoreliste erstellen.
Die Tabelle mit Rang, Name, Punkte ist eine Stringgrid.
Nun impotiere ich bei der OnCreate-Anweisung die Werte aus einer .csv-Datei.
Wenn ich das dann speichere bekomme ich eine Fehlermeldung, dass die Datei nicht erstellt werden kann.
Ich denke, dass das daran liegt, dass ich die Datei ja geöffnet habe.
Wie kann ich die Fehlermeldung umgehen und es richtig speichern?
Hier der wichtige Teil des Quelltextes:
Öffnen:
Variablen: i:integer;
sl: TStringList;
zeilennr: integer;
DateiName, S: String;
F: TextFile;
Code:
for i:=1 to 10 do stringgrid1.Cells[0,i]:=inttostr(i);
DateiName :='Bestenliste.csv';
sl:=TStringList.Create;
sl.Delimiter := ',';
try
AssignFile(F,'Bestenliste.csv');
Reset(F);
zeilennr:=0;
While not Eof(F) do
begin
Readln(F, S);
sl.DelimitedText := s;
Stringgrid1.Rows[zeilennr] := sl;
inc(zeilennr);
end;
finally
sl.free;
end;
Speichern:
Variablen: iRow: integer;
sl: TStringList;
Code:
sl := TStringList.Create;
for iRow := 0 to StringGrid1.RowCount - 1 do
sl.Add(StringGrid1.Rows[iRow].CommaText);
sl.SaveToFile(ExtractFilePath(Application.ExeName)+'Bestenliste.csv');
sl.Free;
Danke für gegebene Antworten
Liebe Grüße
loirad