Как сделать копирование в Delphi?

[qwas]

Знаю что надо ипользовать процедуру

procedure CopyFile(const FileName, DestName: string);

И использовать два имени файла:откуда копировать, и куда.
А как реализовать?

[nons]

не совсем понятно что именно тебя интересует - копирование файлов, или копирование чего либо (в буфер обмена)? уточни плз

[JiF]

Ну наверно копирование файла .... ну так вот .... берём, бросаем кнопочку на форму и .... кликаем по ней два раза левой кнопочкй мышки, открывается чтото типа текстового редактора, тама всякие непонятные надписи .... и вот где курсор стоит (это между слов begin и end; ) там и пишем чтото типа CopyFile('c:\\boot.ini','lol.txt'); .... И терь жмем F9 и жмем на кнопочку на форме .... вроде должно пахать , тестить не стал ...
ЗЫ Если написал не то , то какой вопрос, такой ответ ....

[s4SSn]

Ну наверно копирование файла .... ну так вот .... берём, бросаем кнопочку на форму и .... кликаем по ней два раза левой кнопочкй мышки, открывается чтото типа текстового редактора, тама всякие непонятные надписи .... и вот где курсор стоит (это между слов begin и end; ) там и пишем чтото типа CopyFile('c:\\boot.ini','lol.txt'); .... И терь жмем F9 и жмем на кнопочку на форме .... вроде должно пахать , тестить не стал ...
ЗЫ Если написал не то , то какой вопрос, такой ответ ....

Оффтопик

вот обязательно тебе съехидничать надо

[nons]

;)

CopyFile('file1.txt','file2.txt',true);

[qwas]

не совсем понятно что именно тебя интересует - копирование файлов, или копирование чего либо (в буфер обмена)? уточни плз

Например: при нажатии кнопки test.txt надо скопировать с C:\ на D:\

[nons]

Например: при нажатии кнопки test.txt надо скопировать с C:\ на D:\

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFile('C:\test.txt','D:\test.txt',true);
end;

[qwas]

Ладно с этим разобрались, а переместить?

[nons]

операция перемещения - это копирование на новое место и удаление источника, дальше думай сам ;)

[qwas]

так обычной функцией не обойдёшся, надо процедурой пользоваться?

[nons]

сам понял что написал? :eek:

[qwas]

сам понял что написал? :eek:

Ну напиши пример тогда.

[nons]

Ну напиши пример тогда.

:confused: мда, я б тебе посоветовал для начала взять учебник почитать...или вопсче не запускать дельфю никогда

ЗЫ

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFile('C:\test.txt', 'D:\test.txt', true);
  DeleteFile('C:\test.txt');
end;

[qwas]

А, понятно, а я использовал Erase.
И кстати тему надобы удалить для этого другая тема есть.

[nons]

вопсчем, Closed