Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Help!!! 


Фэ   (2002-02-05 20:30) [9]

Попозже доберись до 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.025 c
1-66558           DimaIv                2002-02-05 13:38  2002.02.21  
как узнать какой нужен UNIT


1-66543           M@XIDROM              2002-02-03 15:43  2002.02.21  
Jpeg->StringGrid


1-66569           Олег Лаукарт          2002-02-05 16:11  2002.02.21  
Как правильно удалить поток


3-66505           vopros                2002-01-24 16:11  2002.02.21  
Общее количество страниц в Репорте


1-66506           IronHawk              2002-02-04 13:06  2002.02.21  
Приветствую Мастеров ! Проблемы с QuickRep.Preview