Markierte Checklistbox Einträge kopieren

[sui]

Moin,

ich lese mittels der Checklistbox den Inhalt eines Ordners ein.
Jetzt bräuchte ich das so, das ich Einträge markieren kann (Haken)
und dann werden die markierten in einen anderen Ordner kopiert.
Soll eine Art Backup-Auswahl werden.
Kann mir einer nen Anstoss geben?

[Christian Seehase]

Moin Sui,

also wo jetzt genau Dein Problem liegt, hab' ich nicht ganz verstanden :gruebel:

[Die Muhkuh]

@Chris


er will die Dateien die markiert sind in einen anderen Ordner kopieren. Nun möchte er wissen wie es geht.

[sui]

Genau Spider...

[Niko]

Hi,

eine Funktion zum Kopieren von Dateien findest du zum Beispiel hier.

[MrKnogge]

Delphi-Quellcode:

for i := 0 to CheckListBox1.Count-1 do
  if CheckListBox1.Checked[i] then ...

[MrKnogge]

Zitat:

Zitat von Niko

Hi,
eine Funktion zum Kopieren von Dateien findest du zum Beispiel hier.

CopyFile wäre wohl einfacher ...

[Die Muhkuh]

Hi,


hier mal ein lauffähiges Beispiel:

Delphi-Quellcode:

var
  I : Integer;
  SL : TStringList;
begin
  SL := TStringList.Create;
  try
    for I := 0 to CheckListBox1.Count - 1 do
    begin
      if CheckListBox1.Checked[I] then
      begin
        SL.Add(CheckListBox1.Items.Strings[I]);
      end;
    end;
    for I := 0 to SL.Count - 1 do
    begin
      CopyFile(PChar(Sl.Strings[I]), PChar('C:\Test\' + ExtractFileName(Sl.Strings[I])), false);
    end;
  finally
    SL.Free;
  end;

Statt 'C:\Test\' musst du halt Edit1.Text oder so einfügen.

PS: Ist wahrscheinlich noch sehr unsauber, aber ein guter ansatzpunkt.

[Die Muhkuh]

Hier nochmal gekürzt:

Delphi-Quellcode:

var
  I : Integer;
begin
  for I := 0 to CheckListBox1.Count - 1 do
  begin
    if CheckListBox1.Checked[I] then
    begin
      CopyFile(PChar(CheckListBox1.Items[I]), PChar('C:\Test\' +
                     ExtractFileName(CheckListBox1.Items[I])), false);
    end;
  end;

Auch hier wieder das 'C:\' entfernen

[sui]

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  I : Integer;
  Pfad: string;
begin
  for I := 0 to CheckListBox1.Count - 1 do
  begin
    if CheckListBox1.Checked[I] then 
    begin
    selectdirectory('Ordner wählen', '' ,Pfad);
    end;

    begin
      CopyFile(PChar(CheckListBox1.Items[I]), PChar('Pfad' +
                     ExtractFileName(CheckListBox1.Items[I])), false);
    end;
  end;
  end;

Lässt sich Compilieren, läuft auch, aber im ausgewählten Ordner kommt nix an.
Der bleibt einfach leer...