[ BakiAna @ 02.05.2022. 18:00 ] @
Ovako stoje stvari: 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 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; 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] |