Markierte Checklistbox Einträge kopieren

[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.