Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Проверить, является ли число вещественным

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function StrIsReal(AString: string): Boolean;
 var
   I: Extended;
   Code: Integer;
 begin
   Val(AString, I, Code);
   Result := Code = 0;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Edit1.Text := '123.222';
   if StrIsReal(Edit1.Text) then
     ShowMessage('Valid float number! Gьltige Gleitkommazahl!');
 end;


 // In Delphi 6, there is a TryStrToFloat function 
// In Delphi6 gibt's auch eine TryStrToFloat Funktion 

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;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.