TButtonColor Speichern

[Popov]

Ohne mich einmischen zu wollen, aber AssignFile, Rewrite, Reset usw. ist für einen Anfänger vermutlich noch eine Nummer heftiger als Ini oder RegIni. Bis man das kapiert hat, hat man die dreimal kapiert. Wobei Perlsaus Idee von dem String für einen erfahrenen Nutzer lächerlich erscheint, aber

Delphi-Quellcode:

function FilePath: String;
begin
  Result := ChangeFileExt(ParamStr(0), '.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    if FileExists(FilePath) then
    begin
      sl.LoadFromFile(FilePath);
      Color := StrToIntDef(Trim(sl.Text), Color);
    end;
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  Color := clYellow;
  sl := TStringList.Create;
  try
    sl.Text := IntToStr(Color);
    sl.SaveToFile(FilePath);
  finally
    sl.Free;
  end;
end;

Warum nicht. Es geht.

[DeddyH]

Das ist aber auch keinen Deut einfacher als TIniFile. Und dort kann ich direkt Zahlen schreiben, die Umwandlung erfolgt intern ganz automatisch.

[Sir Rufo]

Zum Speichern/Wiederherstellen von Farbwerten würde ich ColorToString/StringToColor verwenden (dafür sind die da) und dann mit der Speicher-Variante meiner Wahl (Ini, Registry, Stream, Datenbank, LowLevel-Dateizugriff) speichern und lesen.