Листинг программы - Приемы программирования в Delphi

Form1:

Unit Unit1;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Vcl. Imaging. jpeg, Vcl. ExtCtrls, Registry;

Type

TFormGeneral = class(TForm)

EditLogin: TEdit;

EditPass: TEdit;

ButtonEnter: TButton;

ButtonRigistr: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Procedure ButtonRigistrClick(Sender: TObject);

Procedure ButtonEnterClick(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Var

FormGeneral: TFormGeneral;

Implementation

Uses Unit2;

{$R *.dfm}

Procedure TFormGeneral. ButtonEnterClick(Sender: TObject);

Var SaveTxt:TStringList;

IterIntCount:integer;

LogAndPass:string;

Begin

SaveTxt:=TStringList. Create;

SaveTxt. LoadFromFile(ExtractFilePath(Application. ExeName)+'RegEdit. txt');

LogAndPass:=EditLogin. Text+' '+EditPass. Text;

For iterIntCount:=0 to SaveTxt. Count -1 do

Begin

If LogAndPass = SaveTxt[iterIntCount] then

Begin

Label3.Caption:= 'Доступ разрешен!';

End

Else

Label3.Caption:= 'Доступ запрещен! Зарегистрируйтесь';

End;

End;

Procedure TFormGeneral. ButtonRigistrClick(Sender: TObject);

Begin

FormRigstr. ShowModal;

End;

End.

Form2:

Unit Unit2;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Registry;

Type

TFormRigstr = class(TForm)

ButtonSave: TButton;

EditNewLogin: TEdit;

EditNewPassword: TEdit;

Label1: TLabel;

Label2: TLabel;

Procedure ButtonSaveClick(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Var

FormRigstr: TFormRigstr;

Implementation

{$R *.dfm}

Procedure TFormRigstr. ButtonSaveClick(Sender: TObject);

Var SaveTxt:TStringList;

LoginUsr, PassUsr:string;

Begin

SaveTxt:=TStringList. Create;

SaveTxt. LoadFromFile(ExtractFilePath(Application. ExeName)+'RegEdit. txt');

If (EditNewLogin. Text <> '') and (EditNewPassword. Text <> '') then

Begin

LoginUsr:=Trim(EditNewLogin. Text);

PassUsr:=Trim(EditNewPassword. Text);

SaveTxt. Add(LoginUsr+' '+PassUsr);

SaveTxt. SaveToFile(ExtractFilePath(Application. ExeName)+'RegEdit. txt');

End;

End;

End.

Похожие статьи




Листинг программы - Приемы программирования в Delphi

Предыдущая | Следующая