wie seletiere ich in einer ListView ein Item automatisch?

[a.def]

Oder so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 // Selektiere das DRITTE Item (0-basierte Zählung)
 ListView1.ItemIndex := 2;
end;

Oder so, dann könnten aber mehrere selektiert sein

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListView1.Items[2].Selected := True;
end;

Natürlich sollte man hier auch prüfen, ob überhaupt entsprechend viele Items in der Liste enthalten sind, damit es nicht zu einem Fehler kommt.

[wschrabi]

Danke das leuchtet mir ein: Doch wie durchsuche ich den Listview nach den Filenamen den ich selectieren möchte:

Etwa so?

Delphi-Quellcode:

   for i := 0 to mainform.frmMain.lvFiles.Items.Count-1 do
      begin
      if mainform.frmMain.lvFiles.Items[i] = 'MeinFILENAME'  then
         mainform.frmMain.lvFiles.Items[i].Selected:=True;
      end;

Da kommt der Compiler Err Type mismatch TListItem und TString.
Steh wohl auf der Leitung...



Ich glaub ich habs:

Delphi-Quellcode:

   for i := 0 to mainform.frmMain.lvFiles.Items.Count-1 do
      begin
        lvItem := mainform.frmMain.lvFiles.Items.Item[i];
        s :=  lvItem.Caption +' ' +lvItem.SubItems[0] + '  ' + lvItem.SubItems[1];
        pendingfilename:=lvItem.Caption;
        //ShowMessage(s);
        if pendingfilename =  stringreplace(stringreplace(defaultDATAFilename,'~','',[rfReplaceAll]),'/','',[rfReplaceAll])  then
         mainform.frmMain.lvFiles.Items[i].Selected:=True; 
      end;

[a.def]

Zitat von wschrabi:

Ich glaub ich habs:

Delphi-Quellcode:

   for i := 0 to mainform.frmMain.lvFiles.Items.Count-1 do
      begin
        lvItem := mainform.frmMain.lvFiles.Items.Item[i];
        s :=  lvItem.Caption +' ' +lvItem.SubItems[0] + '  ' + lvItem.SubItems[1];
        pendingfilename:=lvItem.Caption;
        //ShowMessage(s);
        if pendingfilename =  stringreplace(stringreplace(defaultDATAFilename,'~','',[rfReplaceAll]),'/','',[rfReplaceAll])  then
         mainform.frmMain.lvFiles.Items[i].Selected:=True; 
      end;

Viel zu kompliziert ...

Delphi-Quellcode:

for i := 0 to ListView1.Items.Count - 1 do
  begin
   if Assigned(ListView1.Items[i]) then
    begin
     if AnsiLowerCase(ListView1.Items[i].Caption) = AnsiLowerCase('WasAuchImmer') then
      begin
       // Dein Code
      end;
    end;
  end;

[Aviator]

Und jetzt im optimalen Fall noch die Daten von der GUI trennen. Also nicht mehr die Caption prüfen, sondern ein im Item hinterlegtes/zugeordnetes Object.

[a.def]

Zitat von Aviator:

Und jetzt im optimalen Fall noch die Daten von der GUI trennen. Also nicht mehr die Caption prüfen, sondern ein im Item hinterlegtes/zugeordnetes Object.

Heißt das.... so?

Delphi-Quellcode:

var
 ListItem: TListItem;
begin
 ListItem := ListView1.Items[2];
 ShowMessage(ListItem.Caption);
end;

Statt ShowMessage(ListView1.Items[2].Caption);

[Aviator]

Nein. Ich meine mit Trennung der Daten, dass du dir den FileName nicht aus der Caption des ListViewItems ziehst, sondern von einem Object das dem ListViewItem hinterlegt ist. Kann dir jetzt aktuell kein Beispiel machen, aber du kannst ja dir ja mal TListItem.Data anschauen. Dort kannst du einen Pointer auf das Object hinterlegen von dem du die Daten ziehen willst.

Weil die GUI kann sich irgendwann mal ändern. Die Daten und die Logik im Programm bleiben i.d.R. gleich. Deshalb sollte man niemals Daten und GUI mischen.

[himitsu]

Zitat von a.def:

Viel zu kompliziert ...

Wetten, dass if Assigned(ListView1.Items[i]) then immer True liefert
und AnsiSameText.

[a.def]

Zitat von himitsu:

Wetten, dass if Assigned(ListView1.Items[i]) then immer True liefert

Wette angenommen
Das steht da nur zur Vorsicht. Nicht, dass ich wieder Ärger von Luckie bekomme

Zitat:

und AnsiSameText.

AnsiSameText ist zwar eindeutig besser, aber auch langsamer (bei 100000 Durchgängen )

[wschrabi]

Schönen Dank für die Tips, wieder was gelernt!