Изменение имени файла

← →
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;)

Так! Я тебя все равно не понял :) У тебя в 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?

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