unitshowmark.pas

来自「经典游戏扫雷,仿XP」· PAS 代码 · 共 83 行

unit UnitShowMark;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IniFiles;

type
  TForm2 = class(TForm)
    Mark1: TLabel;
    Mark2: TLabel;
    NameFirst: TLabel;
    NameMiddle: TLabel;
    Button1: TButton;
    Button2: TButton;
    Mark3: TLabel;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
    Close();
end;

procedure TForm2.FormCreate(Sender: TObject);
var
    IniFile : TIniFile;

begin
    IniFile :=TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));

    NameFirst.Caption :=IniFile.ReadString('First','Name','匿名') ;
    Mark1.Caption :=IniFile.ReadString('First','Mark','999');
    NameMiddle.Caption :=IniFile.ReadString('Second','Name','匿名') ;
    Mark2.Caption :=IniFile.ReadString('Second','Mark','999');

    IniFile.Free;

    Mark1.Caption :=Mark1.Caption + '秒';
    Mark2.Caption :=Mark2.Caption + '秒';
end;

procedure TForm2.Button2Click(Sender: TObject);
var
    IniFile : TIniFile;

begin
    IniFile :=TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));

    IniFile.WriteString('First','Name', '匿名');
    IniFile.WriteString('First','Mark', '999');
    IniFile.WriteString('Second','Name', '匿名');
    IniFile.WriteString('Second','Mark', '999');

    NameFirst.Caption :=IniFile.ReadString('First','Name','匿名') ;
    Mark1.Caption :=IniFile.ReadString('First','Mark','999');
    NameMiddle.Caption :=IniFile.ReadString('Second','Name','匿名') ;
    Mark2.Caption :=IniFile.ReadString('Second','Mark','999');

    IniFile.Free;

    Mark1.Caption :=Mark1.Caption + '秒';
    Mark2.Caption :=Mark2.Caption + '秒';

end;

end.