Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.233.72] |
|
Страницы: (4) « Первая ... 2 3 [4] все ( Перейти к последнему сообщению ) |
Сообщ.
#46
,
|
|
|
function StrIsReal(AString: string): Boolean; var I: Extended; Code: Integer; begin Val(AString, I, Code); Result := Code = 0; end; вот нашёл... но если число 11,5 то она определяет как строка...что делать? |
Сообщ.
#47
,
|
|
|
procedure TForm1.Button1Click(Sender: TObject); var s: string; f: double; begin s := '123.222'; if TryStrToFloat(s, f) then ShowMessage('Ok!') else ShowMessage('No valid float number!'); end; Добавлено Цитата magsim @ А системный разделитель какой? точка или запятая? но если число 11,5 то она определяет как строка |