Listview Columns auf Labels aufteilen...

[Superior]

Hallo,

ich möchte folgendes Programm mit Delphi 5 programmieren:
Ich habe eine Form mit 2 Labels und einer Listview mit 2 Columns.
Nun soll bei Klick auf einen Button folgendes passieren:

Durch Zufall (ganz wichtig!!!) soll irgendeine Reihe der Listview ausgewählt werden und der Inhalt der einen Column in Label1
und der Inhalt der anderen Column in Label2 kopiert werden...

Dafür suche ich einen Befehl...

Danke jetzt schon mal für die Hilfe

mfg
Superior

[Sharky]

Zitat:

Zitat von Superior

... Dafür suche ich einen Befehl...

Sorry, mit einem Befehl habe ich es nicht geschaft ;-)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  zufall : integer;
begin
  zufall := Random(ListView1.Items.Count);
  Label1.Caption := ListView1.Items[zufall].Caption;
  Label2.Caption := ListView1.Items[zufall].SubItems[0];
end;

[Superior]

Super, danke. Klappt perfekt!

mfg
Superior