Listbox Leeren

[JWeis]

sry wenn ich so mit der Tür ins Haus falle aber ich hab ein Problem :roll:

Also ich hab 2 ListBoxen

Delphi-Quellcode:

...
type
  TForm1 = class(TForm)
    LBxCopy0001: TListBox;
    LBxCopy0002: TListBox;

und über

Delphi-Quellcode:

...
 LBxCopy0001.Items.Add(gFile0001[inte0001]);
 LBxCopy0002.Items.Add(GetFileVersion(gfile0001[inte0001]))

füge ich Dateien ein

Wenn ich diese Dateien mit

Delphi-Quellcode:

LBxCopy0001.Items.clear;
LBxCopy0002.Items.clear;

entferne und neue Dateien einfüge werden die Alten wieder eingefügt.
(Das soll nicht Passieren !:shock: )
Kann mir jemand helfen???

[leddl]

Also sofern du nicht selbst irgendwie die alten Daten einfügst, sollten die dort nicht mehr auftauchen. Am besten du postest mal etwas mehr Code, damit man nach dem Fehler suchen kann.

[Evian]

Ich schätze, es liegt an Deinem Feld "gFile0001[]"
Wie fügst Du denn in dieses eine Neue Datei ein?! .. ich schätze, dass selbst nach dem Einfügen, an der Stelle inte0001 immernoch die alte Datei ist. Oder Du hast einfach vergessen, inte0001 zu incrementieren... Poste mal den Code, wo Du das neue File einfügst.

[JWeis]

Wenns nicht an der listbox liegt hängts entweder an meinem FindAllFiles

Delphi-Quellcode:

function FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean
  = True): TStinDynA;
var
//--Funktionsvariablen---------------------------------------------------------------------
  Wn32FiDa: TWin32FindData;
  File0001: THandle;

begin
  if AnsiLastChar(RootFolder) <> '\' then
  begin
    RootFolder := RootFolder + '\';
  end;
  if Recurse then
  begin{if-1}
    File0001 := FindFirstFile(PChar(RootFolder + '*.*'), Wn32FiDa);
    if File0001 <> INVALID_HANDLE_VALUE then
    try {try(if-2)}
      repeat
      if Wn32FiDa.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY=FILE_ATTRIBUTE_DIRECTORY then
      begin
        if (string(Wn32FiDa.cFileName) <> '.') and (string(Wn32FiDa.cFileName) <> '..')then
        begin
          FindAllFiles(RootFolder + Wn32FiDa.cFileName, Mask, Recurse);
        end;
      end;
      until FindNextFile(File0001, Wn32FiDa) = False;
      finally
      windows.FindClose(File0001);
    end;{try(if-2)}
  end;{if 1}
  File0001 := FindFirstFile(PChar(RootFolder + '*.*'), Wn32FiDa);
  if File0001 <> INVALID_HANDLE_VALUE then
  try {try(if-4)}
    repeat
      if Wn32FiDa.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <>
        FILE_ATTRIBUTE_DIRECTORY then
      begin
        gFileCont := length(gFile0001)+1;
        Setlength(gFile0001, gFileCont);
        gFile0001[gFileCont - 1] := RootFolder + String(Wn32FiDa.cFileName);
      end;{if-3}
    until FindNextFile(File0001, Wn32FiDa) = False;
    finally
    Windows.FindClose(File0001);
  end;{try(if-4)}
end;{Funktion}

das ich durch

Delphi-Quellcode:

FindAllFiles(EdtCopy0001.Text, '*.*', true);

aufrufe.
oder am Phathdialog den ich benutze um Dateien zu suchen

[JWeis]

Delphi-Quellcode:

if PathDialog1.Execute(Filesuch) =false then
  begin
    Exit;
  end{if}
  else
  begin
    EdtCopy0001.Text:=PathDialog1.LastPath;
    FindAllFiles(EdtCopy0001.Text, '*.*', true);
    for inte0001 := 0 to length(gFile0001) - 1 do
    begin
      LBxCopy0001.Items.Add(gFile0001[inte0001]);
      LBxCopy0002.Items.Add(GetFileVersion(gfile0001[inte0001]))
    end;{for-schleife}
  end;{else}

so rufe ich Pathdialog auf

[freak4fun]

Und wo rufst du dein Clear auf?

MfG
freak :gruebel:

[JWeis]

Delphi-Quellcode:

procedure TForm1.Btncopy0004Click(Sender: TObject);
begin
  LbxCopy0001.Items.clear;       
  LBxCopy0002.Items.clear;      
  EdtCopy0001.Text:='';
end;

Hier!

[Airblader]

Solltest du die vorhandenen Einträge aus deinem Array vielleicht einfach mal löschen? ;)
Also am Anfang der FindAllFiles z.B. SetLength(gFile0001, 0); o.ä.

air

[JWeis]

Es Lebt!!!!!!!!! ähhh Es geht!! :pale:

danke alle miteinander!!
ihr wart mir eine große hilfe! :thumb:

[JWeis]

jetzt werden plötzlich nicht mehr alle dateien angezeigt kann mir dabei jemand helfen ?
ist mir erst eben aufgefallen :pale: :oops:

[100nF]

dann beschreib uns mal, was du geändert hast, damit sich die listboxen leeren lassen. am besten mit code.

[JWeis]

[i]vorher

Delphi-Quellcode:

function FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean 
  = True): TStinDynA; 
var 
//--Funktionsvariablen--------------------------------------------------------------------- 
  Wn32FiDa: TWin32FindData; 
  File0001: THandle; 

begin 
  if AnsiLastChar(RootFolder) <> '\' then 
  begin 
    RootFolder := RootFolder + '\'; 
  end; 
  if Recurse then 
  begin{if-1} 
    File0001 := FindFirstFile(PChar(RootFolder + '*.*'), Wn32FiDa); 
    if File0001 <> INVALID_HANDLE_VALUE then 
    try {try(if-2)} 
      repeat 
      if Wn32FiDa.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY=FILE_ATTRIBUTE_DIRECTORY then 
      begin 
        if (string(Wn32FiDa.cFileName) <> '.') and (string(Wn32FiDa.cFileName) <> '..')then 
        begin 
          FindAllFiles(RootFolder + Wn32FiDa.cFileName, Mask, Recurse); 
        end; 
      end; 
      until FindNextFile(File0001, Wn32FiDa) = False; 
      finally 
      windows.FindClose(File0001); 
    end;{try(if-2)} 
  end;{if 1} 
  File0001 := FindFirstFile(PChar(RootFolder + '*.*'), Wn32FiDa); 
  if File0001 <> INVALID_HANDLE_VALUE then 
  try {try(if-4)} 
    repeat 
      if Wn32FiDa.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 
        FILE_ATTRIBUTE_DIRECTORY then 
      begin 
        gFileCont := length(gFile0001)+1; 
        Setlength(gFile0001, gFileCont); 
        gFile0001[gFileCont - 1] := RootFolder + String(Wn32FiDa.cFileName); 
      end;{if-3} 
    until FindNextFile(File0001, Wn32FiDa) = False; 
    finally 
    Windows.FindClose(File0001); 
  end;{try(if-4)} 
end;{Funktion}

Nachher

Delphi-Quellcode:

function FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean 
  = True): TStinDynA; 
var 
//--Funktionsvariablen--------------------------------------------------------------------- 
  Wn32FiDa: TWin32FindData; 
  File0001: THandle; 

begin
  SetLength(gFile0001, 0); //<= das hab ich eingefügt!!
  if AnsiLastChar(RootFolder) <> '\' then 
  begin 
    RootFolder := RootFolder + '\'; 
  end; 
  if Recurse then 
  begin{if-1} 
    File0001 := FindFirstFile(PChar(RootFolder + '*.*'), Wn32FiDa); 
    if File0001 <> INVALID_HANDLE_VALUE then 
    try {try(if-2)} 
      repeat 
      if Wn32FiDa.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY=FILE_ATTRIBUTE_DIRECTORY then 
      begin 
        if (string(Wn32FiDa.cFileName) <> '.') and (string(Wn32FiDa.cFileName) <> '..')then 
        begin 
          FindAllFiles(RootFolder + Wn32FiDa.cFileName, Mask, Recurse); 
        end; 
      end; 
      until FindNextFile(File0001, Wn32FiDa) = False; 
      finally 
      windows.FindClose(File0001); 
    end;{try(if-2)} 
  end;{if 1} 
  File0001 := FindFirstFile(PChar(RootFolder + '*.*'), Wn32FiDa); 
  if File0001 <> INVALID_HANDLE_VALUE then 
  try {try(if-4)} 
    repeat 
      if Wn32FiDa.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 
        FILE_ATTRIBUTE_DIRECTORY then 
      begin 
        gFileCont := length(gFile0001)+1; 
        Setlength(gFile0001, gFileCont); 
        gFile0001[gFileCont - 1] := RootFolder + String(Wn32FiDa.cFileName); 
      end;{if-3} 
    until FindNextFile(File0001, Wn32FiDa) = False; 
    finally 
    Windows.FindClose(File0001); 
  end;{try(if-4)} 
end;{Funktion}

[JWeis]

:oops: ich bin so blöd!! :wall: :wall:
Ich habs falsch eingefügt.


jetzt get's

habs jetzt

Delphi-Quellcode:

procedure TForm1.Btncopy0004Click(Sender: TObject); 
begin
  SetLength(gFile0001, 0); //<= Hier ausprobiert!!  
  LbxCopy0001.Items.clear;        
  LBxCopy0002.Items.clear;      
  EdtCopy0001.Text:=''; 
end;

und auf anhieb klapt's ohne Probleme