Копирование файла

← →
Lonix (2007-02-28 00:35) [0]

У меня есть компонент Memo в нем написан путь файла, я хочу скопировать этот файл в другую папку но выдается ошибка, текст проги:

var
kname: String;
begin
kname:=Memo.Text;
CopyFile(kname, "c:\Windows\",true);
end;
end;

Ошибка такая: [Error] Unit6.pas(170): Incompatible types: "String" and "PAnsiChar"

← →
RASkov (2007-02-28 00:46) [1]

http://delphimaster.net/view/2-1172569876/

← →
Германн © (2007-02-28 01:06) [2]

> RASkov (28.02.07 00:46) [1]

Но что будет если автор скопирует пример по твоей ссылке, одному богу известно :) Он же в [0] вторым параметром поставил имя каталога, а не файла! Лично я на своём компе проверять не хочу! :)

← →
RASkov (2007-02-28 01:21) [3]

Я прочитал первую и последнюю строчку из [0]... перед этим читал такую же ветку из [1] и машинально запостил сюда ссылку.
Лентяи...

> Лично я на своём компе проверять не хочу!

Пусть автор на своем проверит :) уроком будет.
Я тоже проверять не хочу, но думаю страшного ничего не будет... Вылетит ошибка отсутствия файла, или чтонить в этом духе....

← →
RASkov (2007-02-28 01:23) [4]

> отсутствия файла

имеется ввиду - имя файла куда копировать....

← →
Lonix (2007-02-28 01:27) [5]

var
s,k: string;
begin
s:=memo1.Text;
k:="c:\123\123.txt";
copyfile(Pchar(s),pchar(k),true);
end;
(в Memo1 написано c:\123.txt)
Ошибки теперь нету но зато файл не копируется. Почему?

← →
Германн © (2007-02-28 01:30) [6]

> RASkov (28.02.07 01:21) [3]
>Я прочитал первую и последнюю строчку из [0]... перед этим читал такую же >ветку из [1] и машинально запостил сюда ссылку.

Ты правильно прочитал и правильно запостил.

← →
Германн © (2007-02-28 01:35) [7]

> Lonix (28.02.07 01:27) [5]
>
> var
> s,k: string;
> begin
> s:=memo1.Text;
> k:="c:\123\123.txt";
> copyfile(Pchar(s),pchar(k),true);
> end;
> (в Memo1 написано c:\123.txt)
> Ошибки теперь нету но зато файл не копируется. Почему?

А зачем тут TMemo? А уж если TMemo, то почему пользуешь свойство Text?

← →
RASkov (2007-02-28 01:36) [8]

> [5] Lonix (28.02.07 01:27)

Каталога "123" нет.

← →
Lonix (2007-02-28 01:37) [9]

а почему Text нельзя? с ним работает

← →
Германн © (2007-02-28 01:41) [10]

> Lonix (28.02.07 01:37) [9]
>
> а почему Text нельзя? с ним работает
>

Если TMemo, то много строк, если Text, то одна строка. А что нужно непонятно :(

← →
RASkov (2007-02-28 01:43) [11]

> [9] Lonix (28.02.07 01:37)

А кто сказал, что нельзя? Просто скажи - чем отличается Memo1.Text от Momo1.Lines[n]?

← →
Lonix (2007-02-28 01:43) [12]

а как же тогда сделать, чтобы одна строка была?

← →
RASkov (2007-02-28 01:46) [13]

> [12] Lonix (28.02.07 01:43)

А почему Memo? И ответь на [11]

← →
RASkov (2007-02-28 01:53) [14]

> [5] Lonix (28.02.07 01:27)

И как все-таки у тебя с каталогом "C:\123\" - есть он у тебя аль нет?

← →
Lonix (2007-02-28 01:55) [15]

я не знал что так можно заменить text на lines, все равно не копируется

← →
Lonix (2007-02-28 02:12) [16]

есть

> Lonix (28.02.07 02:12) [16]
>
> есть
>

Достал.
Другого ответа у меня нет. :(

← →
RASkov (2007-02-28 02:22) [18]

> [16] Lonix (28.02.07 02:12)

Попробуй завтра.... сегодня магнитные бури недают копироваться файлам...
Вот напоследок проверь, если нескопируется -
> [16] Lonix (28.02.07 02:12)

то точно магнитные бури.
Файл - 123.txt должен быть в корне диска С:

procedure TForm1.Button1Click(Sender: TObject); var s,k: String; begin s:="C:\123.txt"; k:="C:\123\123.txt"; if not DirectoryExists("C:\123") then MkDir("C:\123"); copyfile(PChar(s), PChar(k), true); end;

← →
RASkov (2007-02-28 02:33) [19]

Удалено модератором
Примечание: offtop

← →
ASoft (2007-02-28 03:25) [20]

Удалено модератором
Примечание: offtop

Копирование файла Найти похожие ветки