pefname.pas

Delphi高级开发指南是开发程序的好帮手

unit PeFName;

interface

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

type
  TNameForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    ListAll: TListBox;
    Label2: TLabel;
    Label3: TLabel;
    ListSame: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ListSameClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NameForm: TNameForm;

implementation

{$R *.DFM}

procedure TNameForm.ListSameClick(Sender: TObject);
begin
  with Sender as TListbox do
    Edit1.Text := Items [ItemIndex];
end;

procedure TNameForm.Edit1Change(Sender: TObject);
begin
  if IsValidIdent (Edit1.Text) then
    Edit1.Color := clWindow
  else
    Edit1.Color := clRed;
end;

procedure TNameForm.Edit1Exit(Sender: TObject);
begin
  if not IsValidIdent (Edit1.Text) then
  begin
    ShowMessage ('The new name is an illegal identifier');
    Edit1.SetFocus;
  end;
end;

end.