×

Welcome to TagMyCode

Please login or create account to add a snippet.
 

Lazarus ciclo for labels

0
0
 
0
Language: Delphi
Posted by: Mario Lopes
Added: Sep 27, 2018 12:04 PM
Views: 3450
Tags: for label
  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;    

Write a comment

To post comments, please log in or register.