Listview den rast gele veri alma

[brs]

Merhaba butona her tıkladığımda listview seçili olan Checkbox ile her seferinde rastgele edite veri alma işlemini nasıl yaparım?

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ListView1.items.Count - 1 do
  begin
    if ListView1.Items[i].Checked then
    begin
      Soru.Text := ListView1.Items[i].SubItems[0];
    end;
  end;
end;

[freeman35]

Randomize ve random komutlarını incele. 0 ile count-1 arasında rastgele sayı ürettir.
Kolay gele

[brs]

Randomize ve random komutlarını incele. 0 ile count-1 arasında rastgele sayı ürettir.
Kolay gele

Teşekkür ederim cevap için aklımada gelmişti ama kafama takılan, random ile 5 sayısı aldık diyelim bu sefer listview de 5 satırdaki Checkbox clik işlemini yaptırabilirim...

[brs]

ListView de örnek: 5. satırdaki Checkbox nasıl seçmesini sağlayabilirim bu konu hakkında bir fikri olan var mı?...

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
var
  Uret: Real; // Uses Math Ekle
  Adet, Basla: integer;
begin
  Basla := 1;
  Adet := ListView1.Items.Count + 1;
  Uret := RandomRange(Basla, Adet);
  Soru.Text := FloatToStr(Uret);
end;

[SimaWB]

Şuanda deneme şansım yok ama

Kod: Tümünü seç

ListView1.Items[5].Selected := True;

gibi birşey olması lazım.

[brs]

Emeği geçen herkese teşekkür ederim...

Sırayla Checkbox Seçer

Kod: Tümünü seç

procedure TForm3.Button3Click(Sender: TObject);
var
  Uret: Real; // Uses Math Ekle
  Basla, Adet, i: integer;
  Sonuc: String;
begin
  Basla := 0;
  Adet := ListView1.Items.Count;
  Uret := RandomRange(Basla, Adet);
  Sonuc := FloatToStr(Uret);
  ListView1.Items[StrToInt(Sonuc)].Checked := True;
end;

veya her seferinde başka bir Checkbox seçer

Kod: Tümünü seç

procedure TForm3.Button3Click(Sender: TObject);
var
  Uret: Real; // Uses Math Ekle
  i: integer;
  Sonuc: String;
begin
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    ListView1.Items.Item[i].Checked := False;
  end;
  Uret := RandomRange(0, ListView1.Items.Count);
  Sonuc := FloatToStr(Uret);
  ListView1.Items[StrToInt(Sonuc)].Checked := True;
end;