Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 17. Nov 2007
  Mach mal einen neuen Thread auf, dann antworte ich da.
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 17. Nov 2007
  Die ListView und die ComboBox haben die gleiche Anzahl an Items und das Item der ListView soll immer hinter das der ComboBox?
  for i := 0 to ComboBox1.Items.Count - 1 do
  ComboBox1.Items := ComboBox1.Items + ' ' +ListView1.Items;
  
  Allerdings solltest Du hier dringend eine Fehlerbehandlung einbauen, falls sich die Anzahl der Items doch mal unterscheiden sollte.
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  Das war so gedacht. Aber Du kannst das ja auch noch überarbeiten.
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  function DeleteDirRecursive(sPath: string; DoNotDelete: TStrings): Boolean;
  var Rec: TSearchRec;
  begin
  if not DirectoryExists(sPath) then
  begin
  Result := false;
  exit;
  end;
  sPath := IncludeTrailingPathDelimiter(sPath);
  if FindFirst(sPath + '*.*',faAnyFile,Rec) = 0 then
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  Als 2. Parameter musst Du eine Liste mit den Verzeichnissen angeben, die nicht gelöscht werden sollen (z.B. ComboBox.Items oder sowas). Sollen alle Verzeichnisse gelöscht werden, gibst Du einfach nil an.
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  Evtl. so (vorsichtig beim Ausprobieren!!):function DeleteDirRecursive(sPath: string; DoNotDelete: TStrings): Boolean;
  var Rec: TSearchRec;
  begin
  if not DirectoryExists(sPath) then
  begin
  Result := false;
  exit;
  end;
  sPath := IncludeTrailingPathDelimiter(sPath);
  if FindFirst(sPath + '*.*',faAnyFile,Rec) = 0 then
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  Gut, dann wirst Du das Dreigespann FindFirst, FindNext, FindClose anwenden müssen. Beispiele findest Du bestimmt über die Forensuche. Falls Du nicht klarkommst, melde Dich nochmal.
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  Wenn die Tiefe der zu löschenden Unterordner beliebig sein soll, wirst Du um eine Rekursion schwerlich herumkommen. Bedenke zudem, dass Du nur leere Ordner löschen kannst. Das heißt also, dass Du die Unterverzeichnisse durchlaufen und dort alle Dateien löschen musst. Stößt Du auf ein Unterverzeichnis, tust Du dort dasselbe.
• Forum: Sonstige Fragen zu Delphi

  Re: Ordner löschen

    Delphi
    by DeddyH, 16. Nov 2007
  Hol tief Luft und dann stell die Frage noch einmal so, dass ich sie auch verstehe. Welcher Unterordner z.B.