delphi 判断文本框的问题

来源：百度知道 编辑：UC知道 时间：2024/05/27 17:04:06
想学习下，希望大家给出代码。谢谢！！

一个edit，一个button,
如果edit的值为500
按下button后，开始判断100个已设置的数字。。当条件成立后（有500这个数字）则弹出消息(showmessage('OK，数据存在')

表达能力差。。呵呵

//在窗体放置一个ListBox,一个Edit,一个Button

//Form的OnCreate事件,随机从0到1000中选定100个数到ListBox中
procedure TForm1.FormCreate(Sender: TObject);
var
i :integer;
begin
ListBox1.Items.Clear;
Randomize;
for i := 0 to 99 do
ListBox1.Items.Add(inttostr(Random(1000)));
end;

//Button的OnClick事件,判断ListBox中是否有Edit中输入的数
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
begin
for i := 0 to ListBox1.Items.Count - 1 do
if ListBox1.Items.Strings[i] = Edit1.Text then
begin
showmessage('OK，数据存在');
ListBox1.ItemIndex := i;
Break;
end;
end;

开始判断100个已设置的数字?咋理解？
procedure Tform1.buttonq.click(sender:tobject);
begin
if edit1.text='500' then
showmessage('OK，数据存在') ;
end;