Suggest a feature
×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Delphi
Posted by: Mario Lopes
Added: Sep 27, 2018 12:04 PM
Views: 8
Tags: for label
Faz um ciclo for
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   i :integer;
  4. begin
  5.   for i:=3 to 4 do
  6.   begin
  7.          (FindComponent('Label' + IntToStr(i)) as TLabel).Caption := 'Andre';
  8.   end;
  9.  
  10. end;