|
#1
|
|||
|
|||
Буква
Подскажыте плиз как символ(ы) из Edita проверить - буква это или цыфра? (как isAlpha и isDigit в С++)? Заранее спасибо!
|
#2
|
||||
|
||||
Можешь так:
var i: Integer; try i := StrToInt(Edit1.Text); // значит цифра(ы) except // значит не цифра(ы) end; THE CRACKER IS OUT THERE |
#3
|
||||
|
||||
Код:
function isAlphaRu( c: Char ): boolean; begin Result := Ord( c ) in [168,184,192..223,224..255]; end; function isAlphaEn( c: Char ): boolean; begin Result := Ord( c ) in [65..90,97..122]; end; function isDigit( c: Char ): boolean; begin Result := Ord( c ) in [48..57]; end; |
#4
|
|||
|
|||
чуваки, спасибо большое, но я уже нашол такой способ:
Val(Edit1.Text,cx,c1); Val(Edit2.Text,cy,c2); Val(Edit3.Text,radius,c3); if (c1<>0) or (c2<>0) or (c3<>0) then begin StatusBar1.SimpleText:='ВВЕДИТЕ ЧИСЛОВОЕ ЗНАЧЕНИЕ!'; exit; end; |