Random-Frage

[turboPASCAL]

Zitat von cruso:

Zitat von turboPASCAL:

Warum machst du denn das so Umständlich mit einem Label und so ? Hast du mal den Code von oben Versucht?

Den Code von oben hab ich net probiert, da ich das ganze in einer Datei abspeichern muss, damit es auch beim nächsten programmstart sich net wiederholt.

Hm, verstehe ich jetzt nicht. Es soll beim Programmstart nicht mit der letzten Zahl (von dem letzten Programm start) begonnen werden ? Richtig ?

Zitat von cruso:

Weis irgendjemand wie man am einfachsten einen String in einer Datei abspeichern kann? Warum geht folgendes nicht?

s.SaveToFile(Filename);

Du kannst doch einfach eine Ini-file benutzen.

Delphi-Quellcode:

procedure SaveOldValue...
begin
  with TIniFile.Create(ChangeFileExt(ParamStr(0), 'ini')) do
  begin
    try
      WriteString('AlteZufallszahl', 'Value', InttoStr(AlteZahlAlsString));
      //  WriteInteger('AlteZufallszahl', 'Value', InttoStr(AlteZahlAlsInteger));
    finally
      Free;
    end;
  end;
end;

Erklärung:

Es wird eine Inidatei angelegt die den selben Namen hat wie das Programm ( ParamStr(0) ).

with TIniFile.Create(ChangeFileExt(ParamStr(0), 'ini')) do Kurtzform für:

Delphi-Quellcode:

var AnyIniFile: TInifile;
begin
  AnyIniFile := TIniFile.Create(...
  try
    AnyIniFile.WriteInteger(...
    //...
  finally
    AnyIniFile.free;
  end;
end;