Hi ich möchte ein Programm schreiben, dass mir Brüche kürzt. Ich habe auch alles soweit fertig bekommen nur irgendwie bringt er mir immer an der Stelle
Delphi-Quellcode:
procedure TForm1.findeGGT;
var tausch,b,a: integer;
begin
Z1 := a;
N1 := b;
repeat
IF a > b
then
begin
tausch := a;
a := b;
b := tausch
end
else
b := b-a;
until a=b;
ggt := a;
end;
procedure TForm1.B_KuerzClick(Sender: TObject);
begin
findeGGT;
[B]E_Z1k.Text := IntToStr(Z1/ggt);[/B] <--- Da zeigt er den Fehler an
[B]E_N1k.Text := IntToStr(N1/ggt);[/B] <--- "
end;
den Fehler:
Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann.
Weiß nicht weiter. Würde mich über eure Hilfe freuen
PS: Die Variablen Z1,N1 und ggt sind global deklariert als Integer