Hallo,
vielleicht noch mal ein paar Sätze: Ich habe eine Klasse TSicherung mit verschiedenen Eigenschaften und Methoden (Bsp.: construktor, destruktor). Habe ich aber der Einfachheit hier nicht angegeben. Von dieser Klasse erzeuge ich weitere. TsicherungCad und TSicherungPHP sind weitere Klassen, die von TSicherung alle Methoden und Eigenaschften erben. Nun will ich bei den klassen TSicherungphp und TSicherungCad unterschiedlichen Code in der Prozedur kontrolle schreiben. Das will ich errreichen, in dem ich einfach die Prozedur bei den verschiedenen Klasen überschreibe. Ich habe in der Schule das auch mal so gemacht und da hat es funktioniert.
Beste Grüße und schönen Dank für die bisherige rege Beteiliung
Ulrich
PS: So sieht die Deklaration aus(diesmal nicht zensiert):
Delphi-Quellcode:
type TSicherung =
class(TObject)
private
LManuellDatum, LAutoDatumLetzte, LAutoDatumNaechste : TLabel;
TAuto, TWarten : TTimer;
App : TApplication;
Sicherung : TKopieren;
iInterval, iBereinigenInterval : integer;
boNetz, boBereinigen : boolean;
sPfadLokal, SPfadNetz, sTypart :
string;
procedure TAutoOnTimer(Sender : TObject);
procedure SendStringToHandle(Wnd: Hwnd;
const AText:
string);
procedure TWartenOnTimer (Sender : TObject);
public
constructor create (GStatus : TGauge; LDatei, LAutoLetzteDatum, LAutoNaechDatum, LManDatum : TLabel; Applicat : TApplication; Formular : TForm; Data : TDatabase;
Query : TQuery; sTyp :
string);
destructor destroy;
procedure kontrolle;
procedure sichern;
procedure einstellungen_aktualisieren;
end;
type TsicherungCad =
class(TSicherung)
public
procedure kontrolle;
end;
type TsicherungPHP =
class(TSicherung)
public
procedure kontrolle;
end;