Hallo, ich bin hier gerade am verzweifeln...
Ich habe einen P-Q Formel Rechner geschrieben, der auch automatisch die eingegebenen Brüche mitkürzen soll.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
z,n,x1,x2,a,p,px,p2,q,disk,p5,e: real;
begin
a:= strtofloat(edit1.text) / strtofloat(edit2.text);
px:= strtofloat(edit3.text) / strtofloat(edit4.text);
p:=px / a;
q:= (strtofloat(edit5.text) / strtofloat(edit6.text))/a;
p2:=p / 2;
disk:=sqr(p2) -q;
if disk<0 then begin
edit7.text:='';
edit8.text:='';
edit9.text:='Keine Lösung'
end
else if disk>0 then begin
edit9.text:='Zwei Lösungen';
x1:=-p/2+sqrt(disk);
x1:=round(x1 * 100) / 100 ;
x2:=p/2+sqrt(disk);
x2:=round(x2 * 100) / 100 ;
edit7.text:=''+floattostr(x1);
edit8.text:=''+floattostr(x2);
end
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:=strtoint(edit1.text); //hier ist der Fehler- nur wo?
n:=strtoint(edit2.text);
kuerze(z,n,z1,n1);
edit1.text:=inttostr(z1);
edit2.text:=inttostr(n1);
end;
end;
end;
Procedure kuerze(a,b:integer;var c,d:integer);
var teiler:integer;
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;
end;
ich schätze mal, das müsste soweit richtig sein, allerding markiert er mir die erste Zeile, nach dem "edit1." und sagt "undefinierter Bezeichner "edit1"". Ich schätze mal das ist ein ganz banaler Fehler, aber ich komme gerade echt net drauf -_-
Danke schonmal...