unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
AnEditBox: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);function NoValue(AnEditBox:TEdit):Boolean;
beginif AnEditBox.Text='' thenbeginAnEditBox.Color := clRed;AnEditBox.Text := '请输入整数值';Result := True;endelsebeginAnEditBox.Color := clWindow;Result := False;end
end;
end.
错在哪?????
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
AnEditBox: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);function NoValue(AnEditBox:TEdit):Boolean;
beginif AnEditBox.Text='' thenbeginAnEditBox.Color := clRed;AnEditBox.Text := '请输入整数值';Result := True;endelsebeginAnEditBox.Color := clWindow;Result := False;end
end;
end.
错在哪?????
解决方案 »
- 高价购买音频/视频降噪处理控件?
- 急:请教程序最小化为托盘效果里的一个消息疑问,在线给分
- 如何向access中的OLE字段插入图片?
- 在Delphi如何打开word文挡(这个文挡保存在数据库中),急急!!!!!!!!!!!!!!!
- 关于控件StringGrid的实现效果!急!!!急!!!
- 哪个函数可以调用出Windows的路径选择对话框,控件也可以
- 模式窗体的问题
- delphi 的整合
- c#代码,能有人给译成delphi代码不?
- 程序在运行时,用什么办法可能用鼠标来改变一个控件(如:panel)的大小及位置???
- 明天考试救急
- ---------->>>>>>>>>>>21世纪之惊人大发现:Delphi/BCB编译器之缺陷???
begin
if AnEditBox.Text='' then
begin
AnEditBox.Color := clRed;
AnEditBox.Text := '请输入整数值';
Result := True;
end
else
begin
AnEditBox.Color := clWindow;
Result := False;
end
end;begin;
//
end;编译器自己会告诉你的,自己看提示!要养成好习惯
procedure TForm1.Button1Click(Sender: TObject);
begin
end;function NoValue(AnEditBox:TEdit):Boolean;
begin
if AnEditBox.Text='' then
begin
AnEditBox.Color := clRed;
AnEditBox.Text := '请输入整数值';
Result := True;
end
else begin
AnEditBox.Color := clWindow;
Result := False;
end
end;end.
begin
end;