|
#1
|
||||
|
||||
проверка строк
у меня вопрос, если ли какая стандартная функция проверки является ли строка числом, является ли строка датой?
|
#2
|
||||
|
||||
Таки да, есть:
TryStrToInt TryStrToDateTime и т.п. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
из справки:
Val example Код:
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, mbOk); else Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I)); end; Код:
function TryStrToInt(const S: string; out Value: Integer): Boolean; var E: Integer; begin Val(S, Value, E); Result := E = 0; end; Пишу программы за еду. __________________ |
#4
|
||||
|
||||
Спасибо, удобно
|