実行ファイルの変更を保存するには？ (ID:17484)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

検索エンジンの一番上のURLに書いてあったことを、適当に貼り付けて実行したのですが、できませんでした。

貼り付け方がおかしいのですか？
とりあえず、書いてあることは全然わかりません。
procedure TForm1.Button1Click(Sender: TObject);
var
  FStyle:TFontStyles;
  Fs    :Byte absolute FStyle;
  FPitch:TFontPitch;
  Fp    :Byte absolute FPitch;
  FontIni: TIniFile;
begin
  FStyle:=Memo1.Font.Style;
  FPitch:=Memo1.Font.Pitch;

FontIni:= TIniFile.Create('FONTINI.INI');
  try
    FontIni.WriteInteger('Font','Style',Fs);
    FontIni.WriteInteger('Font','Pitch',Fp);
    FontIni.WriteString('Font','Color',colortostring(Memo1.Font.Color));
  finally FontIni.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  FStyle:TFontStyles;
  Fs    :Byte absolute FStyle;
  FPitch:TFontPitch;
  Fp    :Byte absolute FPitch;
  FontIni: TIniFile;
begin
  FStyle:=Memo1.Font.Style;
  FPitch:=Memo1.Font.Pitch;

FontIni:= TIniFile.Create('FONTINI.INI');
  try
    Fs:= FontIni.ReadInteger('Font','Style',0);
    Fp:= FontIni.ReadInteger('Font','Pitch',0);
  finally FontIni.Free;
  end;
  Memo1.Font.Style:= FStyle;
  Memo1.Font.Pitch:= FPitch;
end;

←解決時は質問者本人がここをチェックしてください。

戻る