RES: RES: [delphi-br] Chamar uma função a partir de uma variável

Lamento discordar... type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Teste; private procedure ExecuteProcName(Obj: TObject; Name: string); { Private declarations } public { Public declarations }

RES: [delphi-br] d6 / Usar FOR com nomes de objetos

Acho que desta forma fica mais próximo do que ele quer... for I := 1 to 4 do begin with Form1.FindComponent('EditData'+IntToStr(I)) as TEdit do begin ReadOnly := True; Font.Style := [fsBold]; Color := clBtnFace; end end; Sds...