cdn Posted January 17, 2006 Report Share Posted January 17, 2006 Cześc. Mam programik w stylu kalkulatora i mam małe pytanie... jak zrobić żeby w programie były tylko liczby lub po wpisaniu litery pojawił sie komunikat że jest błędna wartość. Link to comment Share on other sites More sharing options...
Toster Posted January 18, 2006 Report Share Posted January 18, 2006 dla liczb calkowitych [code=Delphi] Z'3nźs<rr^bppG'7G%FfĆBVFCFWBŚW6W@6vW76vRtąŃŃ4)4( [/code]lub mozesz uzyc funkcji VAL, polecam help. Always Dark<br /> Link to comment Share on other sites More sharing options...
ktoś Posted January 18, 2006 Report Share Posted January 18, 2006 A chyba byl taki kod, w którym wykożystano zdażenie OnKeyDown...Wyglądało to w ten sposób, że jeżeli klawisz odpowiadał cyfrze albo przecinkowi, to odpowiedni znak był dodawany do pola, a jeżeli nie, to był ignorowany.Spróbuj zrobić coś takiego. Link to comment Share on other sites More sharing options...
sazian Posted January 19, 2006 Report Share Posted January 19, 2006 [code=Delphi] procedure TForm1.Edit1Change(Sender: TObject); var i,p:iYB[BY[BYY]K^BYY]K[Śf\"ŁÓFĆVćwFVFCFWBFŚ&VvG'7G%FBmt4)4(ąŃĄą4(4)4)4)1.Text:=s; edit1.SelStart:=p; end; [/code] Link to comment Share on other sites More sharing options...
Budrys Posted January 27, 2006 Report Share Posted January 27, 2006 Ale jeśli ktoś będzie próbował wkleić ze schowka jakąś liczbę, to sprawdzanie już tego nie obejmie.Może zarzuć jakąś pętelkę do sprawdzania kolejnych znaków w edit1 Link to comment Share on other sites More sharing options...
Iskar Posted January 27, 2006 Report Share Posted January 27, 2006 Możesz skorzystać z tego: http://www.unit1.pl/160,8,podglad.html a jeśli chodz i schowek, to załóż sobie hooka. Link to comment Share on other sites More sharing options...
ktoś Posted January 27, 2006 Report Share Posted January 27, 2006 Zmień taki jeden szczegół :zamiast [code=Delphi] for i:=1 to length(edit1.Text) do :ui'for length(edit1.Text) downto i:=1 do Z)(w ó)vęKkz:hśźnł<%jm6'jw'\"9kymśL$-s<śÓ %zm\"KZm3Z'śĘkks|ś-'śÓŹLjL6xs'Łm&vśŃ)ĆśÓ ą0zw#z^hŚ+HL6r^bppwśćF7ŚU7G'Vś6ŚRŁf6S6vW76vRvćR-ŃŹŃŃŚŃąź '); [/code]gdzie wykonaj_dalsze_instrukcje to boolean, którego nazwa mówi wszystko. Nie trzeba zakładać żadnego hooka. szczególnie jeżeli nei ma się doświadczenia z hookiem (nazwa groźnie brzmi :evil: ) Link to comment Share on other sites More sharing options...
sazian Posted February 21, 2006 Report Share Posted February 21, 2006 http://4programmers.net/Delphi/Komponenty/NumEdit.zipto jest komponet oparty na TEdit ale można w nim pisać tylko liczby Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.