Variable aus Stringlist laden

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TForm1.SaveClick(Sender: TObject);

     var Save: TStringList;
begin
  Save:=TStringList.Create; //Objekt erzeugen

  try  //try-finally hilft, das Objekt auch dann freizugeben, wenn ein Fehler auftritt
    Save.Add(FloatToStr(rLeben1)); //Text hinzufügen
    Save.Add(FloatToStr(rMechaniker));
    Save.SaveToFile('E:\Informatik\Delphi\Delphi\StarTrekNeu\Saves\Save.txt'); //Datei speichern
  finally
    Save.free; //Objekt wieder freigeben
  end;
end; 

...

procedure TForm1.VariablenLaden;
var Save: TStringList;
begin
  Save.LoadFromFile('E:\Informatik\Delphi\Delphi\StarTrekNeu\Saves\Save.txt');
  try
    rLeben1:=StrToFloat(Save[1]);
  finally
    Save.free;
  end;

end;

Siehst Du den Unterschied (Tipp: erste Zeile nach dem begin)?