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

[BoT_T]

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

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

Это и ненужно...

[Neoteric]

Сообщение от Пепел Феникса

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

В стринге сколько вместиться? 255 символов, в анси под 2 гига

[SERG1980]

Для поста №11 Ну конечно если файл состоит из одной строки то может и не надо, а если предположим строк несколько десятков или сотен тогда не совсем удобно хранить всё это в переменной типа String

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

справку почитайте.

string=AnsiString(в юникодизированной делфи =UnicodeString) - 2ГБ
ShortString=Pascal.string - 255 символов.

SERG1980, хозяин барин, значит видимо надо

[Neoteric]

о_О помню у меня была анологичная проблема, в стринг все не умещалось, пришлось использовать AnsiString

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

может дело в Юникоде?

[Neoteric]

неисключено

[GunSmoker]

Любой файл в строку:

{$IFNDEF UNICODE}
type
  RawByteString = AnsiString;
{$ENDIF}

function FileToString(const FileName: string): RawByteString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    FreeAndNil(fs);
  end;
end;

Тока учтите, что такой вещи как "просто текст" не существует. В вашем текстовом файле может быть и UTF8 и Unicode BE/LE. Для текстовых файлов я бы рекомендовал использование методов TEncoding.

P.S. Ну и до кучи - обратная функция:

procedure StringToFile(const FileName: string; const Contents: RawByteString; Append: Boolean = False);
var
  FS: TFileStream;
  Len: Integer;
begin
  if Append and FileExists(FileName) then
  begin
    if Contents = '' then
      Exit;
  
    FS := TFileStream.Create(FileName, fmOpenReadWrite or fmShareDenyWrite);
  end
  else
    FS := TFileStream.Create(FileName, fmCreate or fmShareDenyWrite);
  try
    if Append then
      FS.Seek(0, Ord(soEnd)); 

    Len := Length(Contents);
    if Len > 0 then
      FS.WriteBuffer(Contents[1], Len);
  finally
    FreeAndNil(FS);
  end;
end;

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

кстати не советую вообще через TStringList читать, ибо памяти много жрется(на каждую строку, а потом еще на итоговую)

можно сделать так

function FileAsString(s:string):AnsiString;//здесь пишу строго анси.
var F:TFileStream;
begin
 F:=TFileStream.Create(s,fmOpenRead);
 SetLength(Result,F.Size);
 F.ReadBuffer(Result[1],Length(Result));
 F.Free;
end;

GunSmoker,