- Mr Dini: Mindent a StreamSharkról!
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- weiss: Pant* rant
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- Lalikiraly: Astra kalandok @Harmadik rész
- eBay-es kütyük kis pénzért
Új hozzászólás Aktív témák
-
zka67
őstag
Így:
procedure TFom_ini.Button2Click(Sender: TObject);
var z1,z2 : Real;
begin
DecimalSeparator := '.';
z1 := StrToFloat(Edit1.text);
z2 := StrToFloat(Edit2.text);
Edit3.text := FloatToStr(z1*z2);
end;A DecimalSeparator értéke határozza meg, hogy tizedespontot vagy tizedesvesszőt fogadjon el.
A hibakezelést majd ne felejtsd el hozzáadni (try ... except),procedure TFom_ini.Button2Click(Sender: TObject);
var z1,z2 : Real;
begin
DecimalSeparator := '.';
try
z1 := StrToFloat(Edit1.text);
z2 := StrToFloat(Edit2.text);
except
on E: Exception do { Hibakezelés }
end;
Edit3.text := FloatToStr(z1*z2);
end;vagy használd a Val funkciót.
procedure TFom_ini.Button2Click(Sender: TObject);
var z1,z2 : Real;
e : integer;
begin
DecimalSeparator := '.';
Val(Edit1.Text, z1, e);
if e > 0 then begin
{ Hibakezelés, pl. z1 := 1; vagy Exit; }
end;
Val(Edit1.Text, z2, e);
if e > 0 then begin
{ Hibakezelés, pl. z2 := 1; vagy Exit; }
end;
Edit3.text := FloatToStr(z1*z2);
end;
Új hozzászólás Aktív témák
- Ne legyetek bátorak, ha ezt a rollert választjátok - OOTD T10
- Honor 200 Pro - mobilportré
- Allegro vélemények - tapasztalatok
- Everest / AIDA64 topik
- Nyaralás topik
- BestBuy topik
- Mr Dini: Mindent a StreamSharkról!
- AMD Ryzen 9 / 7 / 5 / 3 3***(X) "Zen 2" (AM4)
- Futás, futópályák
- Samsung Galaxy S23 Ultra - non plus ultra
- További aktív témák...
- Csere-Beszámítás! Asztali számítógép PC Játékra! I5 12400F / RTX 3070 / 32GB DDR4 / 500GB SSD
- Telefon felvásárlás!! Honor 90 Lite/Honor 90/Honor Magic5 Lite/Honor Magic6 Lite/Honor Magic5 Pro
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5800X 32/64GB RAM RTX 4060 Ti 8GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Acer Predator Helios 300 Gamer notebook - i7 10750H 16GB DDR4 1TB SSD RTX 2060 6GB WIN10
- Akciós Windows 10 / 11 Pro OEM Licenc Kulcs 100% eredeti, jogtiszta!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest