Как без лишних функций записать файл в string?

[TwiX]

Второй час не могу ничего понятного найти)

[uberchel]

как понять записать в string ??

[TwiX]

чтобы переменная string содержала файл

[uberchel]

var
ST: string;
...
ST:= 'C:\text.txt'

или так 

const ST = 'C:\text.txt';

[TwiX]

имя файла <> файл =\

[DomiNick]

Какой файл-то?)
С помощь чего Вы его находите/выбираете/вводите?))

[Вавел из ГМТУ]

По байтам наверное

[Altera]

Сообщение от TwiX

чтобы переменная string содержала файл

Ну, он хочет считать весь файл в переменную типа string

Ну, можно вот так:

procedure Tmain_form.Button1Click(Sender: TObject);
var
f: tStream;
s: string;
begin
   f := tFileStream.Create('D:\file.txt', fmOpenRead or fmShareDenyWrite);
   try
      setLength(s, f.size);
      f.Read(pointer(s)^, f.Size);
   finally
      f.Free;
   end;
   showMessage(S);
end;

Если вам очень часто нужно "записывать файл в string", то вытащите её в отдельную функцию.

[Serge_Bliznykov]

ну, если уж пользоваться компонентами VCL
то можно и чуть проще:

var
f: tStringList;
s: string;
begin
   f :=tStringList.Create;
   try
     f.LoadFromFile('D:\FILE.TXT');
     s := f.text
   finally
      f.Free;
   end;

[TwiX]

Никак не могу разобраться в потоках *waaaaaaaaall*
Altera, а можно комментарри по поводу:
setLength(s, f.size);
f.Read(pointer(s)^, f.Size);
Спасибо.
Serge_Bliznykov, stringlist тоже подойдёт) Спасибо. Короткое и понятное решения.