Äaehmmm, irgendwie hat das ganz so gar nichts mit Objektorientierung zu tun ...
Nicht nur das.
Wie schon gesagt wurde, ist die Qodeformatierung zwar grauenhaft, aber egal.
Schlimmer ist sowas.
Das hab ich vor 'ner Weile schonmal gesehn.
Selber Lehrer oder Dergleichen?
Zitat:
So viel Beratungsresistenz bekommt man bis zur Klausur nicht mehr weg.
Oder war das auch schon der Selbe.
Zitat:
Delphi-Quellcode:
procedure Tkreis.sety1;
begin
y1 := strtoint(form1.edit6.text);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
mykreis := tkreis.Create;
mykreis.setx1;
mykreis.sety1;
mykreis.setx2;
mykreis.sety2;
mykreis.Kreiszeichnen;
mykreis.Free;
end;
Wenn man sich das mal ansieht, dann bekommt man in Button3Click garnicht mit, was gemacht wird.
z.B. wo kommen die Werte für setx1 her?
Kein Resourcenschutzblock.
Das Zeichnen auf einen Form-Canvas ist nicht resistent/haltbar,
also ist das, was da gemacht wird, sinnlos und es müßte auch ins TForm.OnPaint nochmal mit rein.
Die Ganze ausgeführte Routine würde so auch ganz gut in eine
prozedur ZeichneKreis(x1, y1, x2, y3: Integer; Canvas: TCanvas);
oder
prozedur ZeichneKreis(Rect: TRect; Canvas: TCanvas);
passen. (was auch gut erkennbar macht, daß hier mit
OOP eigentlich nicht viel los ist)