Hallo,
wie kann ich abfragen ob ein Objekt im grunde ein TEdit ist. Egal ob es in wirklichkeit ein TRzEdit ober ähnlich ist.
Zur zeit mache ich das so. Aber ich müsste die Schleife immer ändern, bzw. erweitern wenn ich nun ein z.b. TLMDEdit auf dem Panel habe.
Danke im voraus
Delphi-Quellcode:
function GetDataFromGBox(var FN:TStringList;var FV:TStringList;Box:TPanel):Integer;
var
obj :TControl;
i :Integer;
begin
Result:=0;
Assert(Assigned(Box));
for i:=0 to Box.ControlCount-1 do begin
obj:=Box.Controls[i];
if ( obj is TRzEdit ) then begin
if ( Pos('_',TRzEdit(obj).Name)<>0 ) then begin
FN.Add(Copy(TRzEdit(obj).Name,1,Pos('_',TRzEdit(obj).Name)-1));
FV.Add(TRzEdit(obj).Text);
inc(Result);
end;
end;
end;
end;