Перемещение файла путь из мемо

[mitiay]

искал в гугле ничего подобного не нашел.
Нужно переместить файлы по списку(список memo) в конкретную папку.
Что только не пробывал не получается(((

[FaTaL]

Циклом for to do и функцией MoveFile

[Stilet]

ничего подобного не нашел.

Ай яй... Таки совсем не искал. Вот гугл подсказал:
http://www.programmersforum.ru/showp...31&postcount=6
Только забабахать что-то типа

with memo do for i:=0 to Count-1 do p := StrECopy(p, PChar(Lines[i])) + 1;

[mitiay]

Сообщение от Stilet

Ай яй... Таки совсем не искал. Вот гугл подсказал:
http://www.programmersforum.ru/showp...31&postcount=6
Только забабахать что-то типа

with memo do for i:=0 to Count-1 do p := StrECopy(p, PChar(Lines[i])) + 1;

Можно по подробней?

[Stilet]

Куда уж подробнее )
https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx
http://www.delphikingdom.com/asp/vie...p?catalogid=91

[min@y™]

Что только не пробывал не получается(((

не верю!
а ну покажь!!!

[mitiay]

 function CopyFiles( Handle : Hwnd; Src : array of string; Dest : string; Move : Boolean; AutoRename : Boolean ) : Integer;
var
 FileOp: TSHFileOpStruct;
begin
  ZeroMemory(@FileOp, SizeOf(TSHFileOpStruct));
  FileOp.Wnd:=Handle;
  FileOp.wFunc:=FO_MOVE; // FO_MOVE FO_COPY FO_DELETE FO_RENAME
  FileOp.pFrom:=PChar('C:\test1\'); // ??????
  FileOp.pTo:=PChar('C:\test2\'); // ????
  FileOp.fFlags:=FOF_NOCONFIRMATION;
  SHFileOperation(FileOp);
  ZeroMemory(@FileOp, SizeOf(TSHFileOpStruct));
    end;

Не работает(((

[Stilet]

Ай да пичалька. А почему ты не анализируешь код ошибки от функции SHFileOperation?
Ну и так далее.

[mitiay]

Сообщение от Stilet

Ай да пичалька. А почему ты не анализируешь код ошибки от функции SHFileOperation?
Ну и так далее.

[Warning] Unit1.pas(30): Unsafe code '@ operator'
[Warning] Unit1.pas(33): Unsafe type 'pFrom: PAnsiChar'
[Warning] Unit1.pas(33): Unsafe type 'PChar'

[Stilet]

SHFileOperation это функция. Она возвращает код. Число. Это число характеризует ошибку. Проверять нужно не Варнинги компилятора а то что возвращает функция во время выполнения
Научись читать MSDN. Это очень полезный навык.