Проверка на пустые введенные данные

[rainbow]

Меня интересует одна вещь:
В delphi можно проверить, если введена пустая строка:

If Edit1.text='' then
begin
........
end;

То же самое можно использовать null если переменная не имеет никакого значения, или nil если используеться указатель.

А в паскале как?

Например вот кусок кода:

procedure rep;
var f:real
begin
Writeln('Введите f');
Readln(f);
{Сдесь надо сделать проверку, чего ввел пользователь}
if f=null then
Writeln('Введена пустая строка')
{Или Writeln('Введено неправильно значение f'), если пользователь ввел букву.}

Здесь проверка делаеться как то по другому, но я материал по этому нигде найти не могу.

[Nester]

//Функция проверяет строку на пустоту
Function STRING_IS_EMPTY (S :String) :Boolean;
Var N :Integer;
Begin
Result:=TRUE;
For N:=1 To Length(S) Do If S[N]<>' ' Then Begin Result:=FALSE; Break; End
End;

[-=<[Evklidd]>=-]

Меня интересует одна вещь:
В delphi можно проверить, если введена пустая строка:
Код:


If Edit1.text='' then
begin
........
end;

То же самое можно использовать null если переменная не имеет никакого значения, или nil если используеться указатель.

А в паскале как?

Абсолютно также, только вместо свойства Edit'а используйте какую-либо переменную типа string. Например

var
 s: string;
begin
 writeln('Vvedite stroku: ');
 readln(s);
 if s = '' then
  writeln('Pusta9 stroka'); 
 readln;
end.

[puporev]

или if Length(s)=0
или if ord(s[0])=0

[rainbow]

Это хорошо, но описаные способы работают только с типом string;
А как быть с остальными типами?
В Delphi например есть такие функции как IntToStr, FloatToStr, через которые можно перевести различные типы в строку, а в Паскале как?

[puporev]

Меня интересует одна вещь:
В delphi можно проверить, если введена пустая строка:

А при чем здесь другие типы, если речь идет о проверке СТРОКИ? Вы же в Эдит вводите не число, а его строковое представление. Это потом вы его преобразуете в число. В паскале нет такой необходимости, введенная строка из цифр сразу воспринимается как число того типа, который объявлен для данной переменной. Если объявлено a:integer;, то после ввода 12345, это сразу будет число и переводить его как в Эдите не надо. Если обявлено a:string; и введем 12345, это будет строка и чтобы преобразовать ее в число есть процедура val(a,c,t); в которой строка 12345 превращается в число типа integer, а если a=12.568, то в число вещественного типа. Кстати если Вы такой дельфист, то должны бы знать, что процедуры val и str можно применять и в Делфи.

[rainbow]

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

А при чем здесь другие типы, если речь идет о проверке СТРОКИ? Вы же в Эдит вводите не число, а его строковое представление. Это потом вы его преобразуете в число. В паскале нет такой необходимости, введенная строка из цифр сразу воспринимается как число того типа, который объявлен для данной переменной. Если объявлено a:integer;, то после ввода 12345, это сразу будет число и переводить его как в Эдите не надо. Если обявлено a:string; и введем 12345, это будет строка и чтобы преобразовать ее в число есть процедура val(a,c,t); в которой строка 12345 превращается в число типа integer, а если a=12.568, то в число вещественного типа. Кстати если Вы такой дельфист, то должны бы знать, что процедуры val и str можно применять и в Делфи.

Я Delphi занимаюсь всего полгода, и еще много не знаю, и насчет процедуры val я просто не знал, так как не проходил это.
Спасибо теперь будем знать.
А как кстати сделать проверку, если пользователь ввел не цифровой символ, а буквенный, ведь в этом случае будет ошибка.

[Nester]

//Проверка строки на наличие букв
Function IS_NUMBER (S: String): Boolean;
Var n:Integer;
Begin
Result:=TRUE;
If Length(S)=0 Then Result:=FALSE;
For n:=1 To Length(S) Do
If Not ( S[N] In ['0'..'9']) Then Begin Result:=FALSE; Break; End
End;