我想讀取TTF檔案中的字型名稱 有朋友給了我一段程式碼不過沒學過Delphi function GetFontName(FileNameTTF : string): string; { return the "friendly name" for a TrueType font from a .TTF file } var hFile : file; Buffer : string; TempName : string; iPos, jPos : Integer; begin {Build name for new resource file in} {a temporary file, and call the API.} TempName := ExtractFilePath(Application.ExeName) '~TEMP.FOT'; { build temporary .FOT file for the .TTF } if CreateScalableFontResource(1, PChar(TempName), PChar(FileNameTTF), nil) then begin { open .FOT file and read it into a string buffer } AssignFile(hFile, TempName); Reset(hFile, 1); SetLength(Buffer, FileSize(hFile)); BlockRead(hFile, Buffer[1], FileSize(hFile)); { The name sits behind the text 'FONTRES:' } iPos := Pos('FONTRES:', Buffer) 8; { search for next null character } jPos := iPos; while Buffer[jPos] <> #0 do Inc(jPos); { Return the font name } Result := Copy(Buffer, iPos, jPos - iPos); { clean up } CloseFile(hFile); DeleteFile(TempName); end else Result:='Error'; // ShowMessage(SysErrorMessage(GetLastError)); end; 看來似乎是檔案讀進來後,去找FONTRES:這個字串吧 我用BCB6寫,看了板上文章試著用TMemoryStream讀進來 可去讀進來後,我卻不會比對,試了半天都做不出來 以前都用fstream似乎沒有TMemoryStream好用 第一次用TMemoryStream卻卡住了...