Подскажите как в строке чисел наитйти букву

← →
sergeii © (2004-07-13 10:51) [0]

Пользователь должен в едит вводить цифры, но скажем он ошибся и ввёл одну или несколько букв как мне найти ети буквы, чтото типо етого
p:=pos("a..z,A..Z",value);
Как ето сделать правельноЪ

← →
Рамиль © (2004-07-13 10:53) [1]

надо бороться с причиной, а не следствиями.
не позволяй вводить буквы.

← →
Ega23 © (2004-07-13 10:56) [2]

Есть такая штука:
procedure Val(S; var V; var Code: Integer);
S - строка,
V - число,
Code - если конвертация строки в число прошла успешно, то 0, если нет - позиция в строке, на которой произошла ошибка.

← →
sergeii © (2004-07-13 10:56) [3]

а есле надо просто проверять?

← →
Max Ivanych © (2004-07-13 11:01) [4]

не проше ли взять MaskEdit и задать соответствующую маску?

← →
sergeii © (2004-07-13 11:02) [5]

С procedure Val(S; var V; var Code: Integer); всё хорошо только она хорошо понимает число 123.123 но ни понимает что 123,123 ето число, ето всио зависит от системныь установок ето не очень хорошо.

← →
Ega23 © (2004-07-13 11:04) [6]

sergeii © (13.07.04 11:02) [5]

Ну, батенька, а DecimaleSeparator тебе на что дан?

← →
sergeii © (2004-07-13 11:06) [7]

тогда спрошу подругому как в строке наити буквы???
:))))

← →
Ega23 © (2004-07-13 11:08) [8]

Кроме БУКВ у тебя могут быть спец.символы, типа /"\?!$%@*(
Их ты тоже все перечислять будешь?

← →
sergeii © (2004-07-13 11:10) [9]

да

← →
Ega23 © (2004-07-13 11:14) [10]

Тебе не кажется, что лучше перечислить все РАЗРЕШЁННЫЕ символы?
Что-то вроде:

procedure TFExtSearch.ePWeightKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9",#8, DecimaleSeparator]) then Key:=#0;
end;

> Пользователь должен в едит вводить цифры

по последнему постановлению ЦК ВЦСПС символ . (точка) , очевидно, тоже стал считаться "цифрой"

Если в слове только цифры, то это означает, что в слове нет других символов кроме цифр.

Там где точка там и "+-E"

var i:integer; s:string; begin s := "343l345"; for i:= 1 to length(s) do if s[i] in ["a".."z","*","A".."Z"] then ShowMessage(inttostr(i)); end;

хотя наоборот if not (s[i] in ["0".."1",".",","]) then имхо красивее

"0".."9" ессно

Подскажите как в строке чисел наитйти букву Найти похожие ветки