[ xcsdsgn @ 11.08.2013. 16:25 ] @
Imam osam komponenti Tlabel kreiranih dinamicki. Problem je u tome sto zelim da ih prikazem od najvece do najmanje vrednosti u svojstvu CAPTION 8,7,6,5,4,3,2,1 medjutim uvek bude od 1,2,3,4,5,6,7,8? Code: procedure TForm1.FormCreate(Sender: TObject); var l: Integer; begin for l := 8 downto 1 do begin with TLabel.Create(self) do begin Name := 'lbl' + IntToStr(l); Parent := Self; Caption := IntToStr(l); Top := 8; Left := l * 42; end; end; end; end. Na koji nacin mogu resiti problem i da dobijem : 8,7,6,5,4,3,2,1. |