загрузить просто текстовый документ проблем нет.
я его гружу чуть по другому через функцию.
Код:
function LoadFile(FileName: TFileName):string;
var
MemStr: TMemoryStream; i:integer;
Title: String;
begin
MemStr:= TMemoryStream.Create;
try
MemStr.LoadFromFile(FileName);
MemStr.Seek(0, soFromBeginning);
//Title := ReadStreamStr( MemStr );
finally
MemStr.Free;
end;
end;
проблема, что не могу сообразить, чтобы функция возвращала что нибудь в замен.
пр:
label1.caption:= MemStr.size;
и
memo1.Lines.LoadFromStream(LoadFile);