TFileListBox Versus Componente TCab

Delphi

29/09/2005

Salve Colegas!

Seguinte, estou querendo compactar arquivos e diretórios com o componente TCab. bom a coisa funciona tipo o winzip. eu primeiro vou adicionando os arquivos e pastas em um TFileListBox, e depois digo pro Tcab ir lá e compactar os arquivos e pastas.

O problema é bem simples... vejam abaixo o meu código e o erro:


var
   aCabWr: TSTCabWriter;
   j : integer;

begin
          aCabWr := TSTCabWriter.Create(nil);
          try
              aCabWr.CompressionType := cctLzx;
              aCabWr.Open(Edit_DestB.Text);

              aCabWr.AddFiles(Lista_B.Items, ´´, [cafsoRecurseSubdirs]);

              aCabWr.Close;
          finally
              aCabWr.Free;
              StatusBar1.Panels[1].Text := ´Backup realizado com sucesso.´;
          end;
      end;


O problema está nessa linha: ´aCabWr.AddFiles(Lista_B.Items, ´´, [cafsoRecurseSubdirs]);
´

O erro gerado é o seguinte:

[Error] U_Principal.pas(113): Incompatible types: ´String´ and ´TStrings´


como eu mato essa charada?

[]´s


Mahdak

Mahdak

Curtidas 0

Respostas

Mahdak

Mahdak

29/09/2005

sobe


GOSTEI 0
POSTAR