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

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

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

Срочно!

UDS © (2003-02-02 21:53:00)
Как создать (текстовый) файл программно, в той же дир. где и программа?

Pasechnik (2003-02-02 22:39:00) [1]
В Object Pascal разрешается обращаться к типизированным файлам, открытым процедурой Reset (т. е. для чтения информации), с помощью процедуры write (т. е. для записи информации). Такая возможность позволяет легко обновлять ранее созданные типизированные файлы и при необходимости расширять их. Для текстовых файлов, открытых процедурой Reset, нельзя использовать процедуру Write ИЛИ WriteLn.

Стандартная процедура

Rewrite (<ф.п.>);

инициирует запись информации в файл, связанный с файловой переменной <ф.п.>. Процедурой Rewrite нельзя инициировать запись информации в ранее существовавший дисковый файл: при выполнении этой процедуры старый файл (если он был) уничтожается и никаких сообщений об этом в программу не передается.

UDS (2003-02-02 22:33:00) [2]
*** rewrite(f); //создаём новый

Разве это создание нового файла? Могет это переписывание старого уже заранее созданного?
А мне то надо чтобы из программы (скажем из TEdit) создавался каталог (имя, например "Тексты1"), а из другого едита само название файла(например test1.txt).

OxOTHuK (2003-02-02 22:29:00) [3]
Знают...

const
mytxtfile = "!.txt"

var f_: text;
s: string;
i,ls:integer;

begin
s:= application.ExeName; // или s:=paramstr(0)
for i:=0 to length(s) do
if s[i]="\" then ls:=i;
s:=copy(paramstr(0),0,ls);
assignfile(f_,s+mytxtfile);
rewrite(f_);
.........
close(f_)
end;

по моему это все... не проверял т.к. кодил на скорую руку

Pasechnik (2003-02-02 22:26:00) [4]
var
f:textfile;
begin
assignfile(f,"log.txt");
if fileexists("log.txt") then //если уже создан
append(f) //дописываем в конец
else
rewrite(f); //создаём новый
closefile(f);
end;

UDS (2003-02-02 22:22:00) [5]
Вот лежит передо мной талмуд на полкилогамма и в нем ну ни грамма про ввод-вывод(создание!) файлов. А где взять если на дворе 3-й час ночи? Стал бы я рискуя последними часами онлайна торчать тут...

Pasechnik (2003-02-02 22:22:00) [6]
Действительно , мы не знаем :)

Anatoly Podgoretsky (2003-02-02 22:16:00) [7]
Ты так ничего и не почитал, а зря.

UDS (2003-02-02 22:13:00) [8]
Никто не знает чтоли?

UDS (2003-02-02 22:04:00) [9]
??????????????

Наверх

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