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

Also ich hab 2 ListBoxen

markieren

Delphi-Quellcode:

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

und über

markieren

Delphi-Quellcode:

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

füge ich Dateien ein

Wenn ich diese Dateien mit

markieren

Delphi-Quellcode:

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

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

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.

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.

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

zusammenfalten · markieren

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
FindAllFiles(EdtCopy0001.Text, '*.*', true); aufrufe.
oder am Phathdialog den ich benutze um Dateien zu suchen

zusammenfalten · markieren

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

Und wo rufst du dein Clear auf?

MfG
freak

markieren

Delphi-Quellcode:

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

Hier!

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

Es Lebt!!!!!!!!! ähhh Es geht!!

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

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