Probleme beim Bruchrechner mit dem Kürzen!

[davidgimbel]

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form3: TForm3;

implementation

{$R *.dfm}

//------------------------------------------------


procedure TForm3.Button1Click(Sender: TObject);
var
a,b,c,d,a1,b1,c1,d1,a2,b2,c2,d2,a3,b3:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
d:=c*b;

a1:=strtoint(edit6.text);
b1:=strtoint(edit7.text);
c1:=strtoint(edit5.text);
d1:=c1*b1;

a2:=d*b1;
b2:=b*b1;
c2:=d1*b;
d2:=b1*b;

a3:=a2+c2;
b3:=d2;

edit9.Text:=inttostr(a3);
edit10.Text:=inttostr(b3);
end;

procedure TForm3.Button2Click(Sender: TObject);
var
a,b,c,d,a1,b1,c1,d1,a2,b2,c2,d2,a3,b3:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
d:=c*b;

a1:=strtoint(edit6.text);
b1:=strtoint(edit7.text);
c1:=strtoint(edit5.text);
d1:=c1*b1;

a2:=d*b1;
b2:=b*b1;
c2:=d1*b;
d2:=b1*b;

a3:=a2-c2;
b3:=d2;


edit9.Text:=inttostr(a3);
edit10.Text:=inttostr(b3);

end;


procedure TForm3.Button3Click(Sender: TObject);
var
a,b,c,d,a1,b1,c1,d1,a3,b3:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
d:=c*b;

a1:=strtoint(edit6.text);
b1:=strtoint(edit7.text);
c1:=strtoint(edit5.text);
d1:=c1*b1;

a3:=d*d1;
b3:=b*b1;

edit9.Text:=inttostr(a3);
edit10.Text:=inttostr(b3);
end;



procedure TForm3.Button4Click(Sender: TObject);
var
a,b,c,d,a1,b1,c1,d1,a3,b3:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
d:=c*b;

a1:=strtoint(edit6.text);
b1:=strtoint(edit7.text);
c1:=strtoint(edit5.text);
d1:=c1*b1;

a3:=d*b1;
b3:=b*d1;

edit9.Text:=inttostr(a3);
edit10.Text:=inttostr(b3);
end;




end.

Hier ist Unit3 mit der gemischten Schreibweise, aber da funktioniert leider gar nichts...!