Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Вниз
Подскажите как в строке чисел наитйти букву Найти похожие ветки
← →
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;
← →
Digitman © (2004-07-13 12:04) [11]
> Пользователь должен в едит вводить цифры
по последнему постановлению ЦК ВЦСПС символ . (точка) , очевидно, тоже стал считаться "цифрой"
← →
Anatoly Podgoretsky © (2004-07-13 12:18) [12]Если в слове только цифры, то это означает, что в слове нет других символов кроме цифр.
← →
REA © (2004-07-13 13:11) [13]Там где точка там и "+-E"
← →
Mim1 © (2004-07-13 13:17) [14]
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имхо красивее
← →
Mim1 © (2004-07-13 13:18) [15]
"0".."9"ессно
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.03 c
