Einzelnen Beitrag anzeigen

Benutzerbild von exasoft
exasoft

Registriert seit: 19. Nov 2015
Ort: Frankfurt
47 Beiträge
 
#1

Funktion als Generic - wie?

  Alt 22. Jan 2019, 18:14
Hi @ALL,
hab mal bissi mit generics rumprobiert und wollte mal testweise eine Funktion umstellen - bekomme es aber nicht hin:

Wenn ich zB:
Delphi-Quellcode:
function TForm1.getY_TEdit(Sender: TObject; AMaster: TLayout): single;
var
stufe: integer;
begin
  Result := 0;
  stufe := 0;

  if tedit(sender).Parent = AMaster then
    stufe := 1...
umstellen wollte, habe ich das so versucht:

Delphi-Quellcode:
function TForm1.getY<T>(Sender: TObject; AMaster: TLayout): single;
var
stufe: integer;
begin
  Result := 0;
  stufe := 0;

  egal, was ich hier versuche - ich kann nicht auf ".Parent" zugreifen bzw. da wird gemeckert.
Ich möchte zB TEdit aber auch TMemo, TComboEdit, etc. mitgeben. Hab da bestimmt noch nen Denkfehler. Jemand nen Tipp?

Tks vorab..

de schorsch
  Mit Zitat antworten Zitat