Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как переместить созданный фаил в нужный католог [D5, Win95/98, WinXP]

Vitalnet © (2004-07-13 20:04:00)
Уважаемые мастера!
Прошу Вас помочь я создаю фаил
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;
и переместить хотел бы программно перестить в создающийся каталог
Заранее спасибо.

Красный молоток (2004-07-13 21:12:00) [1]
Ну и?
написать assignfile(mytextfile, defdir+'\my.log');
вместо assignfile(mytextfile, 'my.log');
шо мешает?

Vitalnet (2004-07-13 21:06:00) [2]
хочу чтобы создать файл в каталоге defdir+'\temp'

Vitalnet (2004-07-13 21:02:00) [3]
но как где это прописать

Красный молоток (2004-07-13 21:01:00) [4]
А создать файл в нужном тебе каталоге шо мешаетъ?

Vitalnet (2004-07-13 20:51:00) [5]
понятно как называется а как написать то ее

jack128 (2004-07-13 20:42:00) [6]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »