Два довольно простых вопроса про контроль данных

[Max_Grinyuk]

Всем доброго времени суток.
У меня 2 простых вопроса:
1)У меня есть строки типа STRING, они вводятся с клавиатуры. Необходимо обеспечить контроль вводимых данных, т.е. строка не должна быть пустой. Плиз, подскажите как это сделать!
2) Есть числовая строка типа INTEGER. Как обеспечить контроль вводимых данных в ней?
Заранее огромное спасибо!!!!

[SERG1980]

пример для ввода в Edit

1.

if Edit1.Text<>'' then .....// ваши действия
else showmessage('Нет текста')

2. Проще ограничить ввод только цифр

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in['0'..'9',#8]) then key:=#0
end;

[Stilet]

SERG1980

Дружище, автор в ветке ПАСКАЛЬ ))

.е. строка не должна быть пустой. Плиз, подскажите как это сделать!

Серж тебе сказал как можно на пустоту проверять переменную или так:

if length(переменка строки)=0 then строка пуста

Как обеспечить контроль вводимых данных в ней?

Есть процедура VAL. Вводи число в строковую переменную, скармливай ее этой процедуре, и если та вернет ошибку значит не число ты ввел:

var s:string; a,e:integer;
begin
 readln(s);
 val(s,a,e);
 if e<>0 then Это введено не число, или в нем содержатся не численные символы.
end.

[SERG1980]

Дружище, автор в ветке ПАСКАЛЬ ))

Извиняюсь что то я совсем запарился

[Max_Grinyuk]

StiletБ спс! Но мне нужно именно контроль над вводимым числом. Оно не должно быть отрицательным, и не должно быть больше 2010.

[Stilet]

Оно

Хы... Ну дык IF еще не отменили. В нем и проверяй.

[Hacker19_90]

Сообщение от Max_Grinyuk

StiletБ спс! Но мне нужно именно контроль над вводимым числом. Оно не должно быть отрицательным, и не должно быть больше 2010.

ну тогда вот

....
if (chislo in [0..2010]) then {то что нужно}

[Max_Grinyuk]

Hacker19_90, а как описать chislo?

[Stilet]

это что именно?

Тха...
Ну например любимую фразу крекеров - Write('ввэды чысло, сэстра');

[Hacker19_90]

Сообщение от Max_Grinyuk

Hacker19_90, а как описать chislo?

ну ты же сам писал, что тебе необходим контроль над переменной integer
так и пиши
chislo: integer;