скопировать файл из пути в мемо

[hacknet]

привет всем, ну собственно сам вопрос в заголовке. мужики как скопировать файл из пути memo, в путь edit'a?

[Stilet]

copyfileto(memo.Lines[номер строки],Edit1.Text);

[hacknet]

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

copyfileto(memo.Lines[номер строки],Edit1.Text);

не работает(( добавил в

uses
IdGlobal

[Аватар]

IdGlobal можно и не подключать, там все равно внутри используется CopyFile. Её и используйте.

не работает

Значит неверно пути/имена заданы или нет полномочий или не там смотрите

[Stilet]

не работает((

И откуда школоте известно о наших телепатических возможностях? Ума не приложу...

[hacknet]

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

И откуда школоте известно о наших телепатических возможностях? Ума не приложу...

и вправду, но действительно не работает, приведите полноценный - рабочий код, при нажатии кнопки?
в мемо путь к файлу "c:\1.txt" а в едите путь к папке "c:\111\"
в итоге

copyfileto(memo1.Lines[0],Edit1.Text);

[Serge_Bliznykov]

hacknet, а зайти в справку и прочитать, какие параметры должны быть у функции - сложно, да? Не догадались?

CopyFileTo
Unit: IdGlobal

Copies the source file to the destination file.


function CopyFileTo(const Source: string; const Destination: string): Boolean;

Parameters

const Source: string

Source file name.


const Destination: string

Destination file name.


Returns

Boolean - True if the file is copied, False on error.


Description

CopyFileTo is a function used to copy the file specified in Source to the file specified in Destination.
CopyFileTo will return False if the file in Destination already exists.
CopyFileTo encapsulates the platform-specific calls needed to perform the file copy operation. On the Windows platform, this is the Win32 API function CopyFile. On the Linux platform, CopyFileTo uses a TFileStream instance to create the destination file.

поясняю, первый параметер - имя файла-источника,
второй параметер - имя файла-назначения (заметьте, ИМЯ ФАЙЛА, а не папки)
либо у Вас в Edit1.Text должен быть и путь и имя файла, либо добавляйте имя файла программно, в коде.

BTW, ну и дополнительно, к слову, если файл, куда копируете, уже существует, функция вернёт false (и ничего не скопирует)...

[hacknet]

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

либо у Вас в Edit1.Text должен быть и путь и имя файла, либо добавляйте имя файла программно, в коде.

честно, думал над этим, но как мне программно присвоить имя Файла, точно такое же как в мемо?

[Аватар]

Edit1.Text+ExtractFileName(memo1.Lines[0])

[Stilet]

приведите полноценный - рабочий код, при нажатии кнопки?

Это с чего бы? Ты ошибки значит по сусекам таить будешь, а мы их а-ля квест искать должны?
Рабочий код хочешь? Вот тебе рабочий:

 if not windows.CopyFile(PChar(memo1.Lines[0]),PChar(Edit1.Text+ExtractFileName(memo1.Lines[0])),false)
  then RaiseLastOSError;

Только тебя это не спасет...