Массив

[blad56]

Всем доброго времени суток. Помогите с массивом. Как сделать массив чисел от 1 до 20 например и если в edit'e будет хоть одно число из массива то, например, показать сообщение.

[Федя]

procedure TForm1.Timer1Timer(Sender: TObject);
var
Mass : array [1..20] of integer;
i, a : integer;
begin
i:=1;
a:=0;
repeat a:=a+1;
mass[i] := a;
If mass[i] = B then showmessage('lol');
until a=20;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
B:=StrTOInt(edit1.Text);
end;

end.
Кнопка, едит и таймер , B - глобальная переменная

[blad56]

procedure TForm1.Timer1Timer(Sender: TObject);
var
Mass : array [1..20] of integer;
i, a : integer;
begin
i:=1;
a:=0;
repeat a:=a+1;
mass[i] := a;
If mass[i] = B then showmessage('lol');
until a=20;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
B:=StrTOInt(edit1.Text);
end;

end.
Кнопка, едит и таймер , B - глобальная переменная

Спасибо конечно, но не понимаю, зачем в таймер?:reddy: Мне нужно просто условие, если, например, i:= числу из массива, то выдать сообщение:) Может то, что ты дал и есть верное решение, но какое-то оно странное:cry:

[Федя]

Угу xD накрутил я.

procedure TForm1.Button1Click(Sender: TObject);
var
B, i, a :integer;
Mass : array [1..20] of integer;
begin
i:=1;
a:=0;
repeat
a:=a+1;
mass[i] := a;
B:=StrTOInt(edit1.Text);
If mass[i] = B then showmessage('lol');
until a=20;
end;
end.
Вот намного проще -)
пи.си на форму кинь едит и кнопку.

[R-A-Z-O-R]

Зачем так? на EditChange проверяй условие и все) массив сделай глобальным

[blad56]

Зачем так? на EditChange проверяй условие и все) массив сделай глобальным
Так, теперь понятно:) как теперь сделать проверку, находится ли число в массиве или нет? Код не прошу, нужен только намек:)

[Федя]

Зачем так? на EditChange проверяй условие и все) массив сделай глобальным

Надо придусмотреть, что при измении в едите может ничего не стоять -) ещё, а кнопка универсальней.

[Mebius]

Так, теперь понятно:) как теперь сделать проверку, находится ли число в массиве или нет? Код не прошу, нужен только намек:)

цикл фор ду, а лучше репит антил

а еще в эдит может быть не число а текст, тогда вылетит эксепшн

[lolwut98]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
arr: set of 'A'..'z';
begin
arr := ['A'..'z'];
if key in arr then
showmessage('die');
end;