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

Изменение имени файла   Найти похожие ветки 

← →
an-na2002   (2004-08-26 11:56) [0]

Я открываю файл (например 1.txt), накладываю на него случайный шум и хочу сохранить его 1n.txt. Как это сделать?

---

← →
SPy ©   (2004-08-26 11:58) [1]

Что еще за шум? :))) Если ты открываешь файл в TImage, то SaveToFile("newname.txt"); Вообще-то по твоему коротенькому описанию проблемы ничего не скажешь толкового :) Как открываешь, куда накладываешь? Загадка... =)

---

← →
an-na2002   (2004-08-26 12:12) [2]

Я открываю файл (2 столбца с цифрами)через ТEdit и хочу к имени открываемого файла добавить n.
Например в TEdit c:\1.txt, файл с случайным шумом c:\1n.txt.
Шум:
(Randomize;
 u:=Random(4);
 f:=Random(2);
b:=a+0.01*u*a или b:=a-0.01*u*a;)

---

← →
an-na2002   (2004-08-26 12:13) [3]

Я открываю файл (2 столбца с цифрами)через ТEdit и хочу к имени открываемого файла добавить n.
Например в TEdit c:\1.txt , файл с случайным шумом c:\1n.txt.
Шум:
(Randomize;
 u:=Random(4);
 f:=Random(2);
b:=a+0.01*u*a или b:=a-0.01*u*a;)

---

← →
SPy ©   (2004-08-26 12:19) [4]

Так! Я тебя все равно не понял :) У тебя в TEdit что конкретно занесено? Имя файла? Прекрасно! А как ты шум добавляешь? ЧЕМ? В TStringList файл заносишь или как? Дай код, я хочу посмотреть, как ты файл открываешь и куда его пихаешь.

Еще вариант: Перед открытием файла делаешь так:

CopyFile("tvoy_fail.txt","temp.tmp",false);
<тут кодишь свой шум и сохраняешь все в исходный файл tvoy_fail.txt>
RenameFile("tvoy_fail.txt","tvoy_fail_n.txt");
RenameFile("temp.tmp","tvoy_fail.tmp");
DeleteFile("temp.tmp");

ЗЫ: Может и не рационально, но я до сих пор тебя не понял, где ты файл держишь в программе :)

---

← →
an-na2002   (2004-08-26 12:48) [5]

В TEdit у меня имя файла:
{procedure TForm1.Button1Click(Sender: TObject);
begin
with TOpenDialog.Create(nil) do
try
  FileName := Edit1.Text;
  if Execute then Edit1.Text := FileName
finally
  Free
end
end;}
Потом: h := Edit1.Text; (например с:\qwe.txt)
      assign(Vf,h); reset(Vf);
А как создать файл с именем c:\qweN.txt?

---

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

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



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