Как переместить созданный фаил в нужный католог

← →
Vitalnet (2004-07-13 20:04) [0]

Уважаемые мастера!
Прошу Вас помочь я создаю фаил
procedure TForm1.Button1Click(Sender: TObject);
var
defdir: string;
mytextfile: textfile;
buffer: array[0..1000] of byte;
S: string;
i: integer;
begin
defdir := ExtractFileDir(Application.ExeName);
if not DirectoryExists(defdir+"\temp") then
if not CreateDir(defdir+"\temp") then
raise Exception.Create("Cannot create \temp");
assignfile(mytextfile, "my.log");
Rewrite(mytextfile);
try
for i:= 1 to 5 do
begin
S:="строка #";
writeln(mytextfile, S, i);
end;
finally;
closefile(mytextfile);
end;
end;
и переместить хотел бы программно перестить в создающийся каталог
Заранее спасибо.

← →
jack128 © (2004-07-13 20:42) [1]

> и переместить хотел бы программно перестить в создающийся
> каталог
функция называется ПереместитьФайл

← →
Vitalnet (2004-07-13 20:51) [2]

понятно как называется а как написать то ее

← →
Красный молоток (2004-07-13 21:01) [3]

А создать файл в нужном тебе каталоге шо мешаетъ?

← →
Vitalnet (2004-07-13 21:02) [4]

но как где это прописать

← →
Vitalnet (2004-07-13 21:06) [5]

хочу чтобы создать файл в каталоге defdir+"\temp"

← →
Красный молоток (2004-07-13 21:12) [6]

Ну и?
написать assignfile(mytextfile, defdir+"\my.log");
вместо assignfile(mytextfile, "my.log");
шо мешает?

Как переместить созданный фаил в нужный католог Найти похожие ветки