| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Чтение файла в строку [D7, WinXP]

BFG9k ©   (2006-09-19 15:43:00) 

Нужно прочитать содержимое файла в строку. Я не очень хорошо ориентируюсь в потоках, поэтому спрашиваю, как это можно сделать с помощью потоков (TStream) ?

---

Dmitrij_K   (2006-09-19 16:15:00) [1]

> TStringStream.LoadFromFile

В D7 нету

---

guav   (2006-09-19 15:59:00) [2]

TStringStream.LoadFromFile

---

DVM   (2006-09-19 15:48:00) [3]

LoadFromFile() вроде бы, и лучше взять TFileStream

---

Dmitrij_K   (2006-09-19 15:48:00) [4]

так?
function daj_text_from_file(const fileName:AnsiString):AnsiString;
var
 fs    : TFileStream;
 sizef : Integer;
begin
 fs     := nil;
 result := '';
 try
   fs    := TFileStream.Create(fileName,fmOpenRead);
   sizef := fs.size;
   SetString(result, nil, sizef);
   fs.Read(Pointer(result)^, sizef);
 finally
   fs.Free
 end;
end;

---

Наверх