Hallo
Ich hab folgende Procedure im Inet gefunden, sie mir angeschaut, mit ihr rumgespielt und, glaub ich zumindest, mehr oder weniger verstanden
Delphi-Quellcode:
// Write Procedure
procedure SaveStringToFile (Filename, SaveString: string);
var
fs: TFileStream;
begin
fs := TFileStream.Create (Filename, fmCreate);
try
if SaveString <> '' then
fs.Write (SaveString[1], Length (SaveString));
finally
fs.Free;
end;
end;
Delphi-Quellcode:
// close button
procedure TForm1.Button3Click(Sender: TObject);
var liste2: String;
begin
ListBox2.items.text:=liste2;
SaveStringToFile ('highscore.txt', liste2);
close;
end;
Wenn ich auf button3 klicke, schließt sich das programm, die .txt datei wird zwar erstellt, ist aber leer. Listbox2 ist definitiv mit mind. 3 items gefüllt. Es kommen außerdem keine fehler beim complimieren. Jetzt versuch ich schon seit stunden rauszufinden, warum nix in die blöde .txt datei geschrieben wird :/