Как прочесть весь текстовый файл

[BoT_T]

Как прочесть весь текстовый файл и копировать его содержание в переменную. Спасибо.

[MaxNik2009]

например так можно

var
  sl: TStringList;
begin
  sl:= TStringList.Create;
  try
    sl.LoadFromFile('YorFile.txt');
    // ---------------------
  finally
    sl.Free;
  end;

а можно сразу в компаненты загружать текст из файла(Memo, ListBox и т.д)

[BoT_T]

Так и я могу)) Мне нужно что бы переменная с текстом была стринговая

[MaxNik2009]

на вскидку

var
  f: TextFile;
  sText, Str: string;
begin
  sText:= '';
  AssignFile(f,'TextFile.txt');
  Reset(f);
  while not Eof(f) do
  begin
    ReadLn(f,Str);
    sText:= sText + #13#10 +  Str;
  end;
  CloseFile(f);

end;

p.s. писал без Delphi.

[Serge_Bliznykov]

можно и через тот же TStringList получить в переменную стринговую..
достоточно добавить к примеру MaxNik2009 всего одну строчку:

var
  sl: TStringList;
  sText : string;
begin
  sl:= TStringList.Create;
  try
    sl.LoadFromFile('YorFile.txt');
    sText := sl.Text;
    // ---------------------
  finally
    sl.Free;
  end;

[Neoteric]

Если текстовый файл большой то лутче использовать AnsiString

[Пепел Феникса]

Если текстовый файл большой то лутче использовать AnsiString

вместо чего?

[Neoteric]

Ну тип переменной строковой, вместо string

[Пепел Феникса]

а можно узнать причину?

[SERG1980]

Не понятно чем вас не устраивает стринглист