unit rec;

interface

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

type
  TRecForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RecForm: TRecForm;

implementation

uses main;

 

{$R *.DFM}

procedure TRecForm.FormActivate(Sender: TObject);
var rr:tregistry;
begin
rr:=tregistry.Create;
try
if rr.OpenKey('挖雷',false) then begin
edit2.text:=rr.ReadString('初級(jí)人名');
edit1.text:=inttostr(rr.readinteger('初級(jí)成績(jī)'));
edit4.text:=rr.ReadString('中級(jí)人名');
edit3.text:=inttostr(rr.readinteger('中級(jí)成績(jī)'));
edit6.text:=rr.ReadString('高級(jí)人名');
edit5.text:=inttostr(rr.readinteger('高級(jí)成績(jī)'));
end;
finally
rr.free;
end;
end;


end.