Beim Suchen gefundene Elemente aus Memo löschen

[DeddyH]

Anyway, versuch mal diese Funktion:

Delphi-Quellcode:

function FoundFileInDirectory(FileName, DirName: string): Boolean;
var Rec: TSearchRec;
begin
  Result := False;
  FileName := ExtractFileName(FileName);
  DirName := IncludeTrailingPathDelimiter(DirName);
  if FindFirst(DirName + '*.*', faAnyFile, Rec) = 0 then
    try
      repeat
        if (Rec.Attr and faDirectory) = faDirectory then
          begin
            if (Rec.Name <> '.') and (Rec.Name <> '..') then
              Result := FoundFileInDirectory(FileName, DirName + Rec.Name);
          end
        else
          Result := AnsiStrIComp(PChar(FileName),PChar(Rec.Name)) = 0;
      until (FindNext(Rec) <> 0) or Result;
    finally
      FindClose(Rec);
    end;
end;

[Stamper]

Ich hab das Problem jetzt anders gelöst:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var mzwvar, mzwvar2 : string;
    lcount, lcount2, highcount, highcount2 : byte;
begin
  gcount := 0;
  Progressbar1.Max:= Memo1.Lines.Count;
  highcount := memo1.Lines.Count;
  For lcount := 0 to highcount-1 do
  begin
    gconst := lcount;
    mzwvar := memo1.Lines[lcount];
    GetFilesInDirectory(shelltreeview1.SelectedFolder.PathName, mzwvar, Listbox1.Items, True, True);
    Progressbar1.Position:= lcount + 1;
    label1.Caption := format('Es wurde(n) %d Datei(en) gefunden.',[gcount]);
  end;
  highcount := listbox1.Items.Count;
  For lcount := 0 to highcount2-1 do
  begin
    mzwvar := ExtractFileName(listbox1.Items[lcount]);
    For lcount2 := 0 to highcount-1 do
    begin
      mzwvar2 := memo1.Lines[lcount2];
      if mzwvar = mzwvar2 then memo1.Lines.Delete(lcount2);
    end;
  end;
end;

Ich weiß, jeder halbwegs belesene Programmierer würde sich bei meinem Quelltext sicher erschießen.^^ Es ist nämlich verdammt umständlich. Und zwar extrahiere ich aus dem gefundenen Element, welches die Pfad- und Dateiangabe enthält, den Dateinamen und suche den im Memo. Wenn die Strings übereinstimmen, wird gelöscht.

Aber eins versteh ich nicht. Ich bekomme jetzt immer die Meldung: "Listenindex überschreitet das Maximum(Zahlenangabe)."
Weißt du was damit anzufangen?

Schöne Grüße
Eric

[semo]

ganz spontan: du modifizierst mitten in der schleife den linecount wert durch das löschen von zeilen.

[DeddyH]

Jepp, wenn Du Zeilen löschen willst, muss die Zählvariable rückwärts laufen.

Delphi-Quellcode:

For lcount2 := highcount-1 downto 0 do //andersherum
    begin
      mzwvar2 := memo1.Lines[lcount2];
      if mzwvar = mzwvar2 then memo1.Lines.Delete(lcount2);
    end;

[edit] Erklärung: Die "Laufvariable" wird einmalig gesetzt.for i := 0 to highcount - 1 do Angenommen, es gibt 10 Einträge: Startwert ist 0, Endwert ist 9. Wenn Du zwischendurch Einträge löschst, wird der Endwert nicht aktualisiert, d.h. die Schleife läuft trotzdem weiter. Es genügt also, einen einzigen Eintrag zu löschen, dann kracht es am Schleifenende.[/edit]

[Stamper]

Die Lösung mit dem "downto" bringt leider auch nichts. Aber ich habe noch ein ganz anderes Problem mit meiner Lösung. Und zwar wird immer nur das erste Element in der Memo gelöscht, was auch in der Listbox eingetragen ist. Die anderen Einträge der Memo, die in der Listbox stehen, werden nicht aus dem Memo gelöscht.

[DeddyH]

Kannst Du mal einen Screenshot Deines bisherigen Programms posten? Am Besten mit einer kurzen Erklärung, was wo hinein geladen wird und was wann passieren soll? Ich habe nämlich zugegebenermaßen etwas den Überblick verloren.

[Stamper]

Das Problem mit der Fehlermeldung hat sich gegeben. Ich hab dem Programm ja gar nicht gesagt, was der Wert für "highcount2" ist.
Habs damit gelöst:
highcount2 := memo1.Lines.Count;

[Stamper]

Falls du dir mal alles anschauen willst: Hier sind alle nötigen Dateien:
Dateisuche

[DeddyH]

Mal sehen, ob ich das geschnallt habe: in das Memo wird Deine "Wunschliste" eingetragen, in die ListBox rechts unten die gefundenen Dateien aus einem bestimmten Verzeichnis. Anschließend soll die Wunschliste gefiltert werden, richtig?

[Stamper]

Ja, das siehst du richtig. Es sollen am Schlss in der "Wunschliste" bloß noch die Dateinamen der Dateien stehen, die nicht gefunden wurden.