[leon2009]

опять ошибки на 64бит, под 32бит все отлично. на 64 глюк

Код:

library Project1;
uses
  System.SysUtils,
  System.Classes;

{$R *.res}
function LoadFile(const FileName: TFileName):string;
var
  MemStr: TStringStream;
begin
  MemStr:= TStringStream.Create;
  try
    MemStr.LoadFromFile(FileName);
    MemStr.Seek(0, soFromBeginning);
    Result := MemStr.DataString;
  finally
    MemStr.Free;
  end;
end;

function SaveFile(const FileName: TFileName; text:string):string;
var
  MemSave: TStringStream;
begin
  MemSave:= TStringStream.Create;
  try
    MemSave.WriteString(text);
    MemSave.savetofile(FileName);
  finally
    MemSave.Free;
  end;
end;
exports
  LoadFile, SaveFile;
begin
end.

супер_кнопка

Код:

with OpenDialog1 do
    if Execute then memo1.Lines.Text:=LoadFile(OpenDialog1.FileName);