Srting.LoadFromFile(const Filename:string; var s:string);

← →
RealRascal © (2004-03-07 15:54) [0]

var Mem:TMemoryStream;
SS:TStringStream;
Begin
Try
Mem:=TMemoryStream.Create;
SS:=TStringStream.Create("");
Mem.LoadFromFile(filename);
SS.CopyFrom(Mem, Mem.Size);
Mem.Free;
s:=SS.DataString;
SS.Free;
except
Showmessage("Not enought memory or file does not exists");
end;
end;
//Relax, man. It"s just a joke.
Вот уж действительно гланды через задний проход...

← →
RealRascal © (2004-03-07 16:01) [1]

подсветить забыл
var Mem:TMemoryStream;
SS:TStringStream;
Begin
Try
Mem:=TMemoryStream.Create;
SS:=TStringStream.Create("");
Mem.LoadFromFile(filename);
SS.CopyFrom(Mem, Mem.Size);
Mem.Free;
s:=SS.DataString;
SS.Free;
except
Showmessage("Not enought memory or file does not exists");
end;
end;

← →
RealRascal © (2004-03-11 06:19) [2]

А есть другие способы загнать файл в строку?

← →
VMcL © (2004-03-11 07:47) [3]

TStrings.LoadFromFile + TStrings.Text подойдет?

Или лучше как-то так:

function GetFileAsString(const AFileName: String): String; var FS: TFileStream; Len: Integer; begin FS := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite); try Len := FS.Size; SetLength(Result, Len); FS.ReadBuffer(PChar(Result)^, Len); finally FS.Free; end; end;

Srting.LoadFromFile(const Filename:string; var s:string); Найти похожие ветки