在wince下使kol-ce支持iniFile中文的方法

jjlzg

    kol-ce在PC模式下可以利用其重载的PiniFile完美支持中文，但编译目标改为wince模式后，如何改程序都不能使piniFile类支持中文，英文和数字正常的很。
  通过分析kol.pas代码，发现在PC模式下调用的是kol.pas里的函数，而在wince模式下调用的是KOLCE_IniFile.inc里的函数，OK，修改其中的FindKey函数,将Value:=Trim(S)改为Value:=S，搞定

myid

顶！！！！！！！

yunyong

谢谢楼主共享自己的经验。

tintin

楼主，我将

FindKey函数,将Value:=Trim(S)改为Value:=S

重新编译安装了KOL-CE，还是不支持中文，很奇怪！

tintin

【Wince版本】
FindKey修改：

function TIniFile.FindKey(Key: String; First, Last: Integer; var Value: String): Integer;
var i, k: Integer;
    S: String;
begin
  Result:= -1;
  Key:= Trim(Key);
  for i:= First to Last do begin
    S:= fData.Items;
    k:= Pos('=', S);
    if k > 0 then begin
      if AnsiCompareStrNoCase(Key, Trim(Copy(S, 1, k-1))) = 0 then Result:= i;
      if Result >= 0 then begin
        Delete(S, 1, k);
        //Value:= Trim(S);
        Value:= S;   // 修改这句
        k:= Length(Value);
        if (k > 0) and (Value[1] = '"') and (Value[k] = '"') then begin
          Delete(Value, k, 1); Delete(Value, 1, 1);
        end;
        Exit;
      end;
    end;
  end;
end;      

我封装的函数

procedure WriteIniValue(const SectionName,KeyName,Value:string);
var
  IniIniFile;
  IniFileName:string;
begin
IniFileName := ParamStr(0);
IniFileName:= ChangeFileExt(IniFileName,'.Ini');
try
  Ini:= OpenIniFile(IniFileName);
  Ini.Mode:= ifmWrite;
  Ini.Section:= SectionName;
  ini.ValueString(KeyName,Value);

finally
   ini.Free;
end;

end;   

调用：
WriteIniValue('ShutDown','版本','我的e家');  

结果为：
[ShutDown]
=

ripijiang

我改了也不能写入中文值啊？？？  什么回事，，
改了能读入，但不能写

ripijiang

不行的。。。