Копия файла

[program123]

Добрый день!!! у меня возник вопрос:
Мне необходимо сделать из своей программы копию файла, делаю так:

CopyFile('baza.txt','D:\bb.txt',true);

здесь всё работает прекрасно! но когда я хочу чтобы считывало путь куда необходимо сделать копию из Эдита, то копия не делается. делаю так:

CopyFile('baza.txt',PAnsiChar(sEdit2.Text),true);

отслеживал что находится в PAnsiChar(sEdit2.Text), нормальный путь, но почему не делает копию я не понимаю.. Хелп)

[SERG1980]

А зачем вот это: PAnsiChar? Иесли можно пример того что у Вас написано в едит2

[program123]

без этого работать не будет, если просто Эдит.Текст не работает, у параметра тип PAnsiChar но я выводил на кэпшн формы, там нормальный путь..
в Эдит попадает это:

if SaveDialog1.Execute then
     sEdit2.Text:=SaveDialog1.FileName;

[Alex Cones]

А знаете почему не работает? Потому, что у Вас указан относительный путь в первом параметре CopyFil`а. При вызове Save\Open диалогов текущая директория сбивается. Либо укажите абсолютный путь либо:

GetDir(0,S);
CopyFile(S+'txt.txt',...

P.S. Посмотрите возвращает ли гет слеш, я уже не помню.

[program123]

var
s:string;
begin
GetDir(0,s);
CopyFile(PAnsiChar(s+'baza.txt'),PAnsiChar(sEdit2.Text),true);
end;

не пашет(((
слеш не возвращает но я дописываю s+'\baza.txt'

[Alex Cones]

Хм... Тогда выставьте GetDir ДО запуска SaveFile.
P.S. И проверьте наличие слеша.

[program123]

Дело в том, что у меня в двух кнопках этот код в первой кнопке

if SaveDialog1.Execute then
     sEdit2.Text:=SaveDialog1.FileName;

а потом я уже из Эдита забираю путь
вторая кнопка:

var
s:string;
begin
GetDir(0,s);
CopyFile(PAnsiChar(s+'baza.txt'),PAnsiChar(sEdit2.Text),true);
end;

[Utkin]

Что тебе мешает сделать GetDir(0,s); при создании формы?

[program123]

сделал)))) всем спасибо, всё работает

[FaTaL]

Да и вообще функция CopyFile меня много раз подводила при копировании с флешки или болванки. По мне так лучше использовать TFileStream