Postoji ListBox1, i u njega se dodaju podaci iz baze.db iz tabele iz koje uzima ime i prezime (radi i na VCL i FMX)
Code:
procedure TForm1.Button22Click(Sender: TObject);
var
i: integer;
begin
FDQuery1.Filter := 'od = 51';
FDQuery1.Filtered := true;
ListBox1.Items.Clear;
FDQuery1.RecordCount;
with FDQuery1 do
begin
for i := 0 to FDQuery1.RecordCount do
begin
ListBox1.items.Add(FieldByName('Ime').AsString + ' ' +
FieldByName('Prezime').AsString);
next;
end;
end;
for i := ListBox1.Count - 1 downto 0 do
begin
if Trim(ListBox1.items[i]) = '' then
ListBox1.items.Delete(i);
end;
end;
Da se obrise jedan Item iz ListBoxa moze se koristiti
with Listbox1 do
if ItemIndex <> -1 then
Items.Delete( ItemIndex );
ili
ListBox1.Items.Delete(ListBox1.ItemIndex);
sto radi i na VCL i na FMX
procedure TForm1.Button22Click(Sender: TObject);
var
i: integer;
begin
FDQuery1.Filter := 'od = 51';
FDQuery1.Filtered := true;
ListBox1.Items.Clear;
FDQuery1.RecordCount;
with FDQuery1 do
begin
for i := 0 to FDQuery1.RecordCount do
begin
ListBox1.items.Add(FieldByName('Ime').AsString + ' ' +
FieldByName('Prezime').AsString);
next;
end;
end;
for i := ListBox1.Count - 1 downto 0 do
begin
if Trim(ListBox1.items[i]) = '' then
ListBox1.items.Delete(i);
end;
end;
Da se obrise jedan Item iz ListBoxa moze se koristiti
with Listbox1 do
if ItemIndex <> -1 then
Items.Delete( ItemIndex );
ili
ListBox1.Items.Delete(ListBox1.ItemIndex);
sto radi i na VCL i na FMX
I sad dolazi do problema:
sledeci kod za random (shuffle) radi na VCL
Code:
procedure TForm1.Button20Click(Sender: TObject); //RANDOM SHUFFLE
var
i: integer;
begin
for i := ListBox1.count - 1 downto 0 do
begin
if Trim(ListBox1.items[i]) = '' then
ListBox1.items.Delete(i);
end;
randomize;
with ListBox1.items do
for i := count downto 2 do
exchange(i - 1, random(i));
end;
procedure TForm1.Button20Click(Sender: TObject); //RANDOM SHUFFLE
var
i: integer;
begin
for i := ListBox1.count - 1 downto 0 do
begin
if Trim(ListBox1.items[i]) = '' then
ListBox1.items.Delete(i);
end;
randomize;
with ListBox1.items do
for i := count downto 2 do
exchange(i - 1, random(i));
end;
Ali nikako nece u FMX
Radi se u Alexandria 11.1, za licne potrebe
[Ovu poruku je menjao savkic dana 03.05.2022. u 11:24 GMT+1]