Показать сообщение отдельно
  #4  
Старый 02.11.2009, 17:09
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

1) Юзай StrToIntDef вместо StrToInt во избежания ошибок, юзер может ввести что угодно (символы вместо цифр) а первая функция в ошибке перевода возвратит значение указанное во втором параметре
2) Если работаешь с целочисленными переменными (Integer, Word, Cardinal, Longint...) то вместо знака "/" юзай "div" он делит без остатка и никакой ошибки не будет
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием