| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Изменение имени файла [D7, Win95/98]
an-na2002 © (2004-08-26 11:56:00)Я открываю файл (например 1.txt), накладываю на него случайный шум и хочу сохранить его 1n.txt. Как это сделать?
an-na2002 (2004-08-26 12:48:00) [1]В 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?
SPy (2004-08-26 12:19:00) [2]Так! Я тебя все равно не понял :) У тебя в 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:13:00) [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;)
an-na2002 (2004-08-26 12:12:00) [4]Я открываю файл (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 11:58:00) [5]Что еще за шум? :))) Если ты открываешь файл в TImage, то SaveToFile('newname.txt'); Вообще-то по твоему коротенькому описанию проблемы ничего не скажешь толкового :) Как открываешь, куда накладываешь? Загадка... =)
| |
