Скачать: CL | DM;

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

← →
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");
шо мешает?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c