Цитата(Pegas @ 4.3.2003, 22:00)

... 1) try..except...end; 2) через OnKeyPress. В первом случае может возникнуть исключительная ситуация, во втором - это не допускается. ИМХО второй вариант больше соответствует хорошему стилю программирования. Этого я и придерживаюсь, причем во всем.

А, по-моему, первый, так как:
1) обработка потенциальных ошибок происходит централизованно, а не дьявол знает где;
2) OnKeyPress поймает далеко не всё. Для общего случая нужно упомянуть об OnChange и т.п. - а это уже и муторно, и система больше нагружается.
Так что есплорер форевер.

Второй вариант лучше.

Спасибо всем за инфу!

(для моего случая)

Но в общем, я бы написал Try.

Недавно возникла проблема аналогичного характера...
Что делать, если строка берётся не из Edit а читается из файла
например: readln(f,a);
Причём заранее неизвестно, число туда написали или нет. Я решил проблему так:

function Mystrtoint(a:string):integer;
var
i:integer;
begin
for i:=1 to length(a) do
if not(copy(a,i,1) in [0..9]) then exit;
Mystrtoint:=strtoint(a);
end;

В принципе, работает, но это же целая процедура, а там не одна такая переменная. Может можно проще? (например, читать из файла другой командой, правда я других не знаю).

Это сообщение отредактировал(а) cpu - 8.3.2003, 04:21

Код

Var ff: TextFile;      r: Integer; ... AssignFile(ff,'file.txt'); Reset(ff); try While not Eof(ff) Do   try     ReadLn(ff,S);     r:=StrToInt(S);   except   end finally CloseFile(ff); end;

cpu
К слову говоря Ваша функция с чтением из файла ничего общего не имеет.

Цитата(Song @ 8.3.2003, 08:56)

cpu К слову говоря Ваша функция с чтением из файла ничего общего не имеет.

Да, я знаю, но с помощью неё я обрабатывал прочитанные из файла строки. Я не стал приводить весь текст - там лишком много.