13-07-2009, 10:08 PM
والأفضل هكذا ...
;
كود :
var
vColor: array[1..4] of String = ('Red', 'Blue', 'Green', 'White');
procedure TForm1.btn1Click(Sender: TObject);
var
C: String;
begin
for C in vColor do
begin
if Edt1.Text = C then
ShowMessage('Valid color.')
else
ShowMessage('Invalid color!');
end;
endكود :
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
if Edit1.Text = ListBox1.Items[i] then
ShowMessage('Valid Color')
else
ShowMessage('Invalid Color!');
end