wie seletiere ich in einer ListView ein Item automatisch?

[wschrabi]

Hi
Ich habe eine lvFIles, wo die Filenames gezeigt werden. Wenn ich manuell in dieser Componente ein File markiere dann ist
Assigned(lvFiles.Selected) and Assigned(lvFiles.Selected.Data) beides wahr.

Doch jetzt habe ich einen Namen eines Files, das im Listview aufscheint und möchte diesen automatisch selectieren dass wieder diese beiden
ausdrucker wahr werden.

Wie geht das, wer weiß Rat?
DANKE

[Aviator]

Wie wäre es wenn du einfach die Property setzt?

ListView.Selected := ListItem; Das ganze wird dann ausgeführt wenn du z.B. dein ListView füllst und das entsprechende Item erstellt wird nach dem du suchst.

[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.

[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!

[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);