Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge
Delphi XE8 Professional
|
Re: Return to Sender
15. Nov 2005, 09:05
so in etwa müsste das aussehen !
Delphi-Quellcode:
for i := 0 to ComponentCount -1 do
if Component[i] is TEdit then
if (Component[i] as Tedit).Text = '' then
begin
(Component[i] as TEdit).SetFocus;
break;
end;
Christian Wahl me, myself and I, die lustigen Drei !!
|