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