Сообщение об ошибке при вычислении длины строки

[vedro-compota]

1) Видимо, я полез не в ту степь. Дело в том, что '12-2' действительно числом не является, так вот смысл весь этой конструкции с траем и экспектом ( try - excpet) был в том, чтобы проверить - является ли строка числом (процедура рекурсивная- раскладывает выражение по дереву,поэтому рано или поздно она вызовется именно для числа) . Вот в чём дело. Как же я тогда могу проверить , что строка , например, "s" является числом? если s- типа string и s='12' ?

[Stilet]

Как же я тогда могу проверить , что строка , например, "s" является числом?

Мой любимый вариант

uses Dialogs;
var 

  I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));
end;

Это из хелпа или

 if TryStrToFloat(s,i) then в i число

[Sibedir]

Кстати, vedro-compota, ошибка о которой мы говорим вылазиет только в самой Delph'е. Ето нужно, чтобы на этапке разработки и тестирования программист видел все ошибки. А если вы запустите откомпелированный EXE-шник, скажем из архива 5-5-1.zip, сам по себе, то ошибки не будет. Точнее исключение возникнет, но оно не будет обработано соответствующим образом.

[vedro-compota]

то есть , чисто теоретически способ, который я пытался применить не лишён смысла! ))

[Sibedir]

Вполне

Но О-О-ОЧЕНЬ не красивый

[vedro-compota]

Наверное, вы правы ))

[Utkin]

vedro-compota, ты смотрел предложенную тебе функцию? Ее результат Boolean. Угадай зачем?

[vedro-compota]

пробую угадать...............чтобы не возникало ошибки !
-------------------------------------
а почему в функции

Val(Edit1.Text, I, Code);

три параметра ?

[Utkin]

Сообщение от vedro-compota

пробую угадать...............чтобы не возникало ошибки !
-------------------------------------

Не зачет. Не угадывать надо, а посмотреть описание данной функции и все.

а почему в функции

Val(Edit1.Text, I, Code);

три параметра ?

Собственно и ответ такой же . http://www.delphibasics.ru/Val.php
Есть справочники, тебе дали имя функции, есть гугл с примерами. Что еще нужно для решения задачи?

Ну и вообще по ошибкам http://www.delphikingdom.com/asp/vie...392&mode=print

[vedro-compota]

Procedure Val(S; Var V; Var Code : Integer);

Где:
S - переменная со строковым типом. Должна представлять
последовательность символов, формирующих знаковое целое число.
V - переменная типа Real или Integer
Code - переменная типа Integer

- это про val . А вот про трай :

Цитата (JetAPI @ 11.05.08, 21:59)
Но это же "коряво"!!!!!!!
Думаю, что можно как-то применить эту конструкцию, try-except-end;
А как правильно не знаю. Создается же класс EConvertError

"Коряво" использовать исключения там, где можно без них обойтись, т.к. генерация и обработка исключения занимает уйму времени и ресурсов процессора и ОС

Цитата (JetAPI @ 11.05.08, 21:59)
Цитирую из справочника:
---------------------------
Если строка не может быть преобразована, генерируется исключительная ситуация EConvertError

Функции IntToStr,IntToStrDef и TryStrToInt используют для преобразования строки в число одну и ту же процедуру Val, но в сл.ошибки ведут себя по разному. IntToStr генерит исключение EConvertError, а IntToStrDef и TryIntToStr никаких исключений не вызывают. Поэтому не нужно зацикливаться только на IntToStr и EConvertError, а в завис-ти от задачи использовать наиболее подходящий вариант преобразования. В данном случае догичнее использовать Val или TryStrToInt:

if not TryStrToInt(Edit1.Text,number) then
begin
  ShowMessage('Введено недопустиое значение. Повторите ввод.');
  Edit1.SetFocus();
  Exit;
end;

это на другом вот форуме народ обсуждал. Так значит я прав - TryStrToInt не генерирует сообщения об ошибке.
поставьте зачёт !