Problem z łańcuchem: string???

0

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.

0

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

0

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

[email protected]

0

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

0

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]

0

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0