| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите, в чем ошибка? [D7, 95/98]

fast2 ©   (2005-12-14 18:55:00) 

Ругается на строку: 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:00) [1]

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

---

Наверх