[vinni]

Подскажыте плиз как символ(ы) из Edita проверить - буква это или цыфра? (как isAlpha и isDigit в С++)? Заранее спасибо!

[4kusNick]

Можешь так:

var
i: Integer;
try
i := StrToInt(Edit1.Text);
// значит цифра(ы)
except
// значит не цифра(ы)

end;

[Decoding]

Код:

 
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;

[vinni]

чуваки, спасибо большое, но я уже нашол такой способ:
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;