[Delphi] Mam problem z dzieleniem...

0

Mam problem z dzieleniem liczb zapisanych np. w Edit.text

Funkcja:

var
X, Y, Z : Integer;
begin
X := StrToInt(Edit1.text);
Y := StrToInt(Edit2.text);
Z := X / Y;
Label3.Caption := IntToStr(Z);

U mnie nie działa. ;-|

0

var
X, Y, Z : Integer;
begin
X := StrToInt(Edit1.text);
Y := StrToInt(Edit2.text);
Z := X / Y;
Label3.Caption := IntToStr(Z);

X, Z: Integer;
Z: Double;

Label3.Caption:=FloatToStr(z)

--
Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]

0

var
X, Y, Z : Integer;
begin
X := StrToInt(Edit1.text);
Y := StrToInt(Edit2.text);
Z := X [b]div[/b] Y;
Label3.Caption := IntToStr(Z);

dzielenie całkowitoliczbowe: div
dzielenie rzeczywiste: /

--
Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

0

jeszcze mod!! ;]

--
People=Shit

0

jeszcze mod!! ;]

To nie jest dzielenie!!!!!!

--
Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]

0

Przecież z jest Integer a wynik dzielenia to real. Tak więc
Z:real;
....
Label.Caption:=FloatToStr(Z);
....

0

jeszcze mod!! ;]

To nie jest dzielenie!!!!!!

To jest reszta z dzielenia ;]

--
People=Shit

0

Przecież z jest Integer a wynik dzielenia to real. Tak więc
Z:real;
....
Label.Caption:=FloatToStr(Z);
....

Jakbyś nie zauważył to Vogel już to napisał.
W aktualnej wesji kompilatora typ Real odpowiada typowi Double, a Real48 staremu typowi Real (temu 6 bajtowemu), chyba że włączono opcję zgodności.

--
Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0