線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:3628
推到 Plurk!
推到 Facebook!

如何修改TINIFILE .Readstring 支援Unicode

尚未結案
jenpeter
一般會員


發表:39
回覆:37
積分:15
註冊:2002-08-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-22 21:51:36 IP:220.140.xxx.xxx 未訂閱
//inifiles function TIniFile.ReadString(const Section, Ident, Default: string): string; var Buffer: array[0..2047] of Char; begin SetString(Result, Buffer, GetPrivateProfileString(PChar(Section), PChar(Ident), PChar(Default), Buffer, SizeOf(Buffer), PChar(FFileName))); end; 請問各位先進,如何elphi內建的 Tinifile.ReadString 方法 改成支援 Unicode . SetString 這個函式第一次看過~實在看不懂~不知如何下手
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-22 22:05:08 IP:220.131.xxx.xxx 未訂閱
http://delphi.about.com/library/rtl/blrtlSetString.htm    網海無涯,唯學是岸!
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-22 22:14:26 IP:61.64.xxx.xxx 未訂閱
引言: //inifiles function TIniFile.ReadString(const Section, Ident, Default: string): string; var Buffer: array[0..2047] of Char; begin SetString(Result, Buffer, GetPrivateProfileString(PChar(Section), PChar(Ident), PChar(Default), Buffer, SizeOf(Buffer), PChar(FFileName))); end; 請問各位先進,如何elphi內建的 Tinifile.ReadString 方法 改成支援 Unicode . SetString 這個函式第一次看過~實在看不懂~不知如何下手
若只是要讀取Unicode的ini, 我建議你直接使用GetPrivateProfileStringW() 用法: 假設一Unicode Ini File : C:\Test.ini, 內容如下: [Test] Test1=TEST2 可用下列讀取:
procedure TForm1.Button1Click(Sender: TObject);
var
  wszBuf: array[0..99] of WChar;    begin
  FillChar(wszBuf, SizeOf(wszBuf), 0);
  GetPrivateProfileStringW('Test', 'Test1', '', wszBuf, SizeOf(wszBuf), 'C:\Test.ini');
  ShowMessage(wszBuf); 
end;
jenpeter
一般會員


發表:39
回覆:37
積分:15
註冊:2002-08-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-10-23 03:53:16 IP:220.140.xxx.xxx 未訂閱
不好意思,再請問一下 GetPrivateProfileString 這支API可讀取ANSI INI FILE GetPrivateProfileStringW 這支API可讀取Unicode INI FILE, WritePrivateProfileString 這支API可寫入ANSI INI FILE WritePrivateProfileStringW 那寫入是用這支吧!!
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-10-23 10:35:53 IP:61.64.xxx.xxx 未訂閱
引言: 不好意思,再請問一下 GetPrivateProfileString 這支API可讀取ANSI INI FILE GetPrivateProfileStringW 這支API可讀取Unicode INI FILE, WritePrivateProfileString 這支API可寫入ANSI INI FILE WritePrivateProfileStringW 那寫入是用這支吧!!
是的. 在Delphi裡 GetPrivateProfileString, GetPrivateProfileStringA = 讀取ANSI INI FILE GetPrivateProfileStringW = 讀取UNICODE INI FILE WritePrivateProfileString, WritePrivateProfileStringA = 寫入ANSI INI FILE WritePrivateProfileStringW = 寫入UNICODE INI FILE
系統時間:2024-06-02 1:08:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!