Подскажите, в чем ошибка?

← →
fast2 (2005-12-14 18:55) [0]

Ругается на строку: From := _from;
Procedure TForm1.CopyFiless(_from,_to:string);
var
SHFileOpStruct : TSHFileOpStruct;
From : array [0..255] of Char;
begin
From := _from;
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @From;
pTo := PChar(_to);
fFlags := FOF_SIMPLEPROGRESS;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := Копирование...";
end;
SHFileOperation( SHFileOpStruct );
end;

Вызываю так: CopyFiless("C:\111\2.doc","c:\222\2.doc");

← →
alex_*** © (2005-12-14 19:22) [1]

разные типы присваиваешь

Подскажите, в чем ошибка? Найти похожие ветки