| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help!!! [D1, Win95/98]
MystiX © (2002-02-05 19:28:00)Подскажите: как работать с файлами?
Фэ (2002-02-05 20:30:00) [1]Попозже доберись до TFileStream - советую.
var
fsR,fsW: TFileStream; // два файловых потока
s: string;
cnt: longint;
..
try
fsR := TFileStream.Create(FileReadName,fmOpenRead);
fsW := TFileStream.Create(FileNewName,fmCreate);
cnt := fsR.Size; // размер читаемого файла
SetLength(S,cnt); // выделение буфера под тело файла
cnt := fsR.Read(S[1],cnt); // сколько реально прочитано
S:= ... ; //меняем текст
try
fsW.Write(PChar(S)^,Length(s)); // пишем в файл
except
// обработка ошибок
end;
finally
if fsR <> nil then FreeAndNil(fsR); // освобождаем и нулим TObject
if fsW <> nil then FreeAndNil(fsW);
end;
Фэ (2002-02-05 20:20:00) [2]См.
vector> (05.02.02 19:36)
yaJohn (2002-02-05 20:20:00) [3]Help, kluchevie slova File, Read, Write, BlockRead, BlockWrite, AssignFile, CloseFile i t.d.
Обработчик файлов (2002-02-05 20:19:00) [4]Ну дык ить открой файл на запись и запиши, потом открой файл на чтение и читай. В чем проблема то ? Объяснил бы народу поконкретнее. Мы же Твоих мыслей не читаем
При записи используешь приведенный выше код, но с другими процедурами:
Rewrite - открыть для перезаписи
Append - открыть для добавления
MystiX (2002-02-05 20:17:00) [5]Пишем текст.
Фэ (2002-02-05 20:15:00) [6]Какую информацию ?
Расширение ничего не определяет, по крайней мере физически.
Доступ к файлам зависит от их предполагаемого типа: бинарные, типизированные, текстовые..
Чего пишем-то ?
MystiX (2002-02-05 20:10:00) [7]Нужно записать информацию в файл с произвильным расширением, а потом прочитать.
vector (2002-02-05 19:36:00) [8]А что конкретно нужно?
Можно оч. просто:
var
f:text;
s1,s2:string;
begin
assignfile(f,"путь к файлу\ его имя");
ReSet(f);// Оnкрыть для чтения
WriteLn(f,s1);
WriteLn(f,s2)
CloseFile(f);
end
А что надо?
Обработчик файлов (2002-02-05 19:33:00) [9]Нежно
| |
