[delphi] overenie ci je premenná Real

Programovacie jazyky, rady, poradňa...
geoge046
Star
Star
Používateľov profilový obrázok
Príspevky: 608
Registrovaný: 10 aug 2005, 14:15
Bydlisko: Prievidza
Kontaktovať používateľa:

[delphi] overenie ci je premenná Real

Príspevok od používateľa geoge046 »

Cafte,
pls nemate niekto nahodou funkciu ktora zisti ci je v edit-e zadany iba numericky retazec (presnejšie real)? Ďakujem :)

//a ešte pls ako da do normalneho textu v label-i napisat horný alebo dolný index? diks
q-parser
Professional
Professional
Používateľov profilový obrázok
Príspevky: 1410
Registrovaný: 04 dec 2004, 16:48
Bydlisko: /dev/null
Kontaktovať používateľa:

Príspevok od používateľa q-parser »

Nasiel som na googli tuto funkciu, ktora ti to checkne.

Kód: Vybrať všetko

function IsFloat(S: String): Boolean;
begin
  try
    Result := True;
    StrToFloat(S);
  except on E: EConvertError do
    Result := False;
  end;
end;
Ja by som cely string prechadzal po znaku a hladal bodku. Ak by sa nenasla, tak by to bol real (za predpokladu, ze je v edite cislo).
DomCZo
Light Star
Light Star
Používateľov profilový obrázok
Príspevky: 235
Registrovaný: 16 okt 2006, 22:49

Príspevok od používateľa DomCZo »

Chcem ta poopravit.
Ak by sa nenasla, tak by to bol real
Ak by sa nasla, tak by to bol real. Ale cislo real moze byt aj cele cislo (bez bodky), nie? Takze by to bol zly napad.
Napísať odpoveď