Dankeschön
Delphi-Quellcode:
...
else if disk=0 then begin
edit9.text:='Eine Lösungen';
e:=-p/2;
x1:=e;
x1:=round(x1 * 100) / 100;
edit7.text:=''+floattostr (x1);
edit8.text:='';
end;
end;
var z,n:real;
begin
z:=strtofloat (form1.edit1.text);
n:=strtofloat(form1.edit2.text);
tform1.kuerze (z,n,z1,n1); // inkompatible Typen: Integer und real
edit1.text:=inttostr(z1);
edit2.text:=inttostr(n1);
end;
end;
end;
Procedure TForm1.kuerze(a,b:integer;var c,d:integer);
var teiler:real;
begin
teiler:=a;
while (a mod teiler <> 0) or (b mod teiler <>0) do
teiler:=teiler-1;
c:=a div teiler;
d:=b div teiler;
selbes Programm, anderes Problem:Inkompatible Typen (siehe Oben)- was muss ich tuen???