Загрузить в переменную

[Shouldercannon]

Столкнулся с проблемой. Нужно в переменную типа string загрузить текст из файла *.txt. Можно ли такое сделать?

[Олвин]

Ой, да очень просто! Создаём объект TStringList, загружаем туда (LoadFromFile) файл, присваиваем переменной его свойство Text и уничтожаем объект!

[.Phoenix]

Var f: String;
    i: integer;
  TF: textfile;
begin
RichEdit1.Lines.LoadFromFile('D:\1.txt'); 
For i:=0 to RichEdit1.Lines.Count-1 do 
f:=f+RichEdit1.Lines.Strings[i];
Memo1.Lines.Add(f);
end;

[Stilet]

Вот тебе еще один простенький пример:

uses
  SysUtils,
  classes;

var s:TStringStream; f:TFileStream;
begin
 s:=TStringStream.Create('');
 f:=TFileStream.Create('project1.dpr',fmopenread);
 f.Position:=0;
  s.CopyFrom(f,f.Size);
  write(s.DataString);
 s.Free;
 f.Free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Shouldercannon]

Спасибо за примеры