Problem z łańcuchem: string???

Nie wiem jak zrobić, aby komputer sprawdził czy tekst, który wpisałem do edit zawiera jakąś cyfrę czy nie? Może ma ktoś jakieś propozycje rozwiązania.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
cyfra:set of char;
begin
cyfra:=['0'..'9'];
for i:=1 to Length(edit1.Text) do
if Edit1.Text[i] in cyfra then
begin
Label1.Caption:='Jest cyfra';
Exit;
end;
Label1.Caption:='Nie ma cyfry';

end;

--Pawel

Delphi6

Dzięki za kod. Spróbowałem i się udało. {brawo} --DELPHI 6

[email protected]

AnIHiL napisał:
Dzięki za kod. Spróbowałem i się udało. {brawo}
&gt
No pewnie ze sie udalo. Sprawdzilem :-) --Pawel {Delphi6 }

Po pierwsze: F1

Wcześniej próbowałem różnych rzeczy ale na taką z pętlą nie mogłem wpaść. GRATULACJE PQ {brawo} {brawo} {brawo} --DELPHI 6

[email protected]

A tak mozna to zrobić od innej strony:

procedure TForm1.Button1Click(Sender: TObject);
var
c:char;
begin
for c:='0' to '9' do
if Pos(c,Edit1.Text)&gt0 then
begin
Label1.Caption:='Jest cyfra';
Exit;
end;
Label1.Caption:='Nie ma cyfry';
end;
--Pawel {Delphi6 }

Po pierwsze: F1