16,748
社区成员
发帖
与我相关
我的任务
分享
function ReadFontFile(sFileName: string): string;
var
iFile : Integer;
iSize : Integer;
iRead : Integer;
iPos : Integer;
sData : String;
sRead : String;
begin
iFile := FileOpen(sFileName, fmOpenRead);
if iFile <> -1 then
begin
iSize := FileSeek(iFile, 0, 2);
FileSeek(iFile, 0, 0);
SetLength(sRead, iSize);
iPos := 1;
repeat
SetLength(sData, iSize);
iRead := FileRead(iFile, sData[1], iSize);
Move(sData[1], sRead[iPos], iRead);
inc(iPos, iRead);
dec(iSize, iRead);
until iSize = 0;
FileClose(iFile);
Result := StringReplace(StringReplace(sRead, '0x', '', [rfReplaceAll]), ',', '', [rfReplaceAll]);
end
else begin
Result := '';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (ReadFontFile('d:\1.txt'));
end;
function ReadFontFile(sFileName: String): String;
var
n, vFileHandle: Integer;
begin
vFileHandle := FileOpen(sFileName, fmOpenRead);
try
n := FileSeek(vFileHandle, 0, 2);
SetLength(Result, n);
FileSeek(vFileHandle, 0, 0);
FileRead(vFileHandle, Result[1], n);
Result := StringReplace(Result, '0x', '', [rfReplaceAll]);
Result := StringReplace(Result, ',', '', [rfReplaceAll]);
finally
FileClose(vFileHandle);
end;//end of try
end;