Kód: Vybrať všetko

procedure TForm1.Button3Click(Sender: TObject);
var i,b,a,cislo,k,n:Integer;
begin
listbox2.Items.clear;
n:=listbox1.items.Count-1;
k:=listbox1.Items.Count;
cislo:=strtoint(listbox3.Items.Strings[0]);

if cislo >=k then
cislo:=cislo-k;

b:=k-cislo;

for i:=0 to n do
begin
a:=strtoint(listbox1.items.strings[i]);
if i < (k div 2) then
Listbox2.Items.insert(i+cislo,inttostr(a))   else
// if i>= k div 2 then
Listbox2.Items.insert(i-b,inttostr(a));

end;
end;

end.

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
var i,b,a,cislo,k,n:Integer;
begin
listbox2.Items.clear;
n:=listbox1.items.Count-1;
k:=listbox1.Items.Count;
cislo:=strtoint(listbox3.Items.Strings[0]);

if cislo >=k then
cislo:=cislo-k;

b:=k-cislo;

for i:=0 to n do
if i + cislo <=n  then
a:=i+cislo
else
a:=i-b;

for i:=n downto 0 do
Listbox2.Items.Add(listbox1.items.Strings[i]);



end;

end.

Kód: Vybrať všetko

for i:=0 to n do
begin
if i + cislo <=n  then a:=i+cislo
else a:=i-b;

listbox2.Add(listbox1.item[a]);
end;

Kód: Vybrať všetko

for i := 1+posuv to n+posuv do
begin
 listbox2.insert := listbox1.items[i mod n];
end;

Kód: Vybrať všetko

for i := (1-1)+posuv to (n-1)+posuv do
begin
listbox2.insert := listbox1.items[i mod n];
end;

Kód: Vybrať všetko

for i := posuv to n+posuv-1 do
begin
listbox2.insert := listbox1.items[i mod n];
end;

Kód: Vybrať všetko

index, hodnota
0. 21
1. 22
2. 23
3. 24
4. 25
5. 26

Kód: Vybrať všetko

for i := n-posuv to 2*n-posuv-1 do
begin
listbox2.add:= listbox1.items[i mod n];
end;