Kako poredjati labele od najvece do najmanje vrednostiProblem 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.
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.
