Ver Mensaje Individual
  #7  
Antiguo 11-08-2012
jonydread jonydread is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 157
Reputación: 13
jonydread Va por buen camino
sale esto
CreateDirectory(PCHAR(Path), 0); --->constant 0 converter to nil
XCopy(Handle, origen, destino); -----> incopatible type Tstrings and string

cambie esta parte y funciona pero crea nueva carpeta y no me copia nada
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
origen, destino: string;
list : Tstrings;
begin
list := tstringlist.Create;
for i:= 0 to Opendialog1.Files.Count-1 do
list.Add(opendialog1.Files[i]);
destino:= 'C:\\nuevo';
 XCopy(Handle, list, destino);

end;

esas lineas
me salen con error

Última edición por jonydread fecha: 11-08-2012 a las 22:29:40.
Responder Con Cita