Typumwandlung: Elemente der Unterklasse in Oberklasse

[TiGü]

Die Struktur ist doch schon so Murks!

Mach einen gemeinsamen Vorfahren (TOberklasse) für deine 1 bis N Unterklassen (TUnterklasse1..TUnterklasse999) aber die Methode, wo du auf Instanzen dieser Klassen reinbekommst (procedure Test(AObj: TUnterklasse); ) packst du ein eine dritte Klasse. Also ein Handler, Manager, Processor, Dispatcher -> nenn es wie es passend erscheint.

[Stolle58]

Hi,

wenn ich Mir deinen Code ansehe, stelle ich fest das Du ein Anfänger bist und den Aufbau von Klassen noch nicht ganz verstehst.

Deshalb möchte ich dir einen Youtube Kanal nennen, von dem du vieles lernen kannst.

https://www.youtube.com/@DelphiLernen/videos

Ich wünsche dir viel erfolg beim lernen.

[DeddyH]

Vor 16 Jahren registriert und immer noch Anfänger?

[enigma]

Hallo an euch,
es kann sein, dass ich euch für euch einfache Fragen stelle,
aber ich freue mich auf eure Tipps 😉

[freimatz]

Zitat von DeddyH:

Vor 16 Jahren registriert und immer noch Anfänger?

Ich war mal in einer Firma, da war das Hauptprodukt in Delphi und auch schon recht alt. Als ich kam, gab es da keine Klassen, ausser die welche Delphi selbst erstellt. (Also nur Formuale, Reports, etc.).
Ich finds gut, dass Du enigma Dich damit beschäftigst.

[Blup]

Versuch es mit einer virtuellen Testmethode.

Delphi-Quellcode:

TOberklasse = class(TObject)
protected
  function TestMethode: string; virtual;
public
  class procedure Test(AObj: TOberklasse);
  constructor Create;
end;

TUnterklasse = class(TOberklasse)
protected
  function TestMethode: string; override;
public
  Name: String;
  constructor Create;
end;

implementation

class procedure TOberklasse.Test(AObj: TOberklasse);
begin
  if Assigned(AObj) then
    ShowMessage(AObj.TestMethode);
end;

procedure TOberklasse.TestMethode;
begin
  Result := 'ClassName = ' + ClassName;
end;

procedure TUnterklasse.TestMethode;
const
  CRLF = #13#10;
begin
  Result :=
    inherited TestMethode + CRLF +
    'Name = ' + Name;
end;