Delphi Dělení – Delphi – Fórum – Programujte.com

Zdravím,

může mi zde prosím vás někdo poslat jednoduchý a funkční kod který vydělý 2 proměné Tedity prosím?

numerator:= edit1.text;

  denominator:= edit2.text;

V TEdit-e je v premmenna text typu string. Ked chces delit musis mat dve cisla (napr. integer) pre musis pouzit funkciu StrToInteger (alebo StrToInt neviem teraz ako sa presne vola).

Nemohl byste mi tu někdo prosím vložit příklad kodu prosím?

a / b....?

Tak třeba takhle:
procedure vydel;
var vydel: Extended;
begin
vydel := StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text);
//Edit3.Text := FloatToStr(vydel);
end;

Díki fakt moc !!!

Čili "napište to za mě". Tady máš příklad:

var

  vysledek: Single

...

vysledek := StrToInt(Edit1.Text) / StrToInt(Edit2.Text);

Koukám někdo byl rychlejší.