Ładny brzuch
Mam pytanie: Jak sprawdzi czy tekst wpisany do Edit1 jest liczb?
Prosze o pomoc.
kurcze nie chce mi si pisa po raz 100 poszukaj sobie z 20 razy ju pisaem na to kod !!
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin try i := StrToInt(Edit1.Text); except on EConvertError do begin ShowMessage('To nie jest liczba cakowita'); exit; end; end; ShowMessage('To jest liczba cakowita'); end;
Moe jest jaka funkcja, ale ten kod te si sprawdza.
//Edit
Bedzio czy ten kod wyglda podobnie??
Uytkownik LewB ar edytowa ten post 11 marzec 2005, 14:18
nie
ps nie polecam uywania takich instrukcji, to celowe wywoywanie wyjtku to czyste lamerstwo :D
ps2 mj kod tworzy zbir i sprawdza czy txt w edicie nale do zbioru
wiem, e to prymitywne rozwizanie, ale zawsze co...
Moze mozna petla sprawdzacz czy Edit1.text[i] in [0..9] ale nie jestem pewien :unsure: to tylko taka mysl ;)
Moze mozna petla sprawdzacz czy Edit1.text[i] in [0..9] ale nie jestem pewien :unsure: to tylko taka mysl ;)
kurcze nie chce mi si pisa po raz 100 poszukaj sobie z 20 razy ju pisaem na to kod !!
var k, i:integer; begin val(Edit1.Text,i,k); if k<>0 then MessageBox(0,'Nie wpisae liczby!','',MB_OK+MB_IConerror) else MessageBox(0,'Wpisae liczb!','',MB_OK+MB_ICONINFORMATION); end;
A co bedzie przy wklejeniu tekstu? :lol: Cyrkiel dal najlepsze :)
function isint(s: string): boolean; var i: integer; begin result := False; if s = '' then begin exit; end; for i:=1 to length(s) do begin if not (s[i] in ['0'..'9']) then begin if not ((s[i] = '-') and (i=1)) then begin exit; end; end; end; result := True; end;
Uytkownik Ali240 edytowa ten post 12 marzec 2005, 10:15
Dzikuje wszystkim za pomoc. Myle, e tu nie jest wane kto udzieli najleszej odpowiedzi. Natomiast wane jest, e kady jak zna jakie rozwizanie to stara si pomc. Dlatego jeszcze raz wszystkim serdecznie dzikuje.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Prosze o pomoc.
kurcze nie chce mi si pisa po raz 100 poszukaj sobie z 20 razy ju pisaem na to kod !!
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin try i := StrToInt(Edit1.Text); except on EConvertError do begin ShowMessage('To nie jest liczba cakowita'); exit; end; end; ShowMessage('To jest liczba cakowita'); end;
Moe jest jaka funkcja, ale ten kod te si sprawdza.
//Edit
Bedzio czy ten kod wyglda podobnie??
Uytkownik LewB ar edytowa ten post 11 marzec 2005, 14:18
nie
ps nie polecam uywania takich instrukcji, to celowe wywoywanie wyjtku to czyste lamerstwo :D
ps2 mj kod tworzy zbir i sprawdza czy txt w edicie nale do zbioru
wiem, e to prymitywne rozwizanie, ale zawsze co...
Moze mozna petla sprawdzacz czy Edit1.text[i] in [0..9] ale nie jestem pewien :unsure: to tylko taka mysl ;)
Moze mozna petla sprawdzacz czy Edit1.text[i] in [0..9] ale nie jestem pewien :unsure: to tylko taka mysl ;)
kurcze nie chce mi si pisa po raz 100 poszukaj sobie z 20 razy ju pisaem na to kod !!
var k, i:integer; begin val(Edit1.Text,i,k); if k<>0 then MessageBox(0,'Nie wpisae liczby!','',MB_OK+MB_IConerror) else MessageBox(0,'Wpisae liczb!','',MB_OK+MB_ICONINFORMATION); end;
A co bedzie przy wklejeniu tekstu? :lol: Cyrkiel dal najlepsze :)
function isint(s: string): boolean; var i: integer; begin result := False; if s = '' then begin exit; end; for i:=1 to length(s) do begin if not (s[i] in ['0'..'9']) then begin if not ((s[i] = '-') and (i=1)) then begin exit; end; end; end; result := True; end;
Uytkownik Ali240 edytowa ten post 12 marzec 2005, 10:15
Dzikuje wszystkim za pomoc. Myle, e tu nie jest wane kto udzieli najleszej odpowiedzi. Natomiast wane jest, e kady jak zna jakie rozwizanie to stara si pomc. Dlatego jeszcze raz wszystkim serdecznie dzikuje.