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.