опять ошибки на 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);