{
关键字=打开utf8文件到memo
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 17:33:25
数字签名=17A767BE451889C3829B94C67642E7A4
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, OleCtrls, SHDocVw, jpeg,
RxRichEd;
uses pngimage, prompt, mshtml, ActiveX, Httpapp, md5, Richex, ImgSize,
ComObj, shellapi, untDrag //PDF
, xRegExt //注册扩展名
;
function LoadUTF8File(AFileName: string): string;
var
ffileStream: TFileStream;
fAnsiBytes: string;
S: string;
begin
{打开utf8文件到memo
}
result := ‘’;
try
ffileStream := TFileStream.Create(AFileName, fmOpenRead);
SetLength(S, ffileStream.Size);
ffileStream.Read(S[1], Length(S));
fAnsiBytes := UTF8Decode(Copy(S, 4, MaxInt));
Result := fAnsiBytes;
ffilestream.Free; //debug 会有文件占用的问题,加上这句话解决了。
except
result := ‘’;
end;
end;