> It is not that easy!
> The code above might work if String maps to an AnsiString,
> however fails if String maps to a UnicodeString ( Delpi 2009 ).
>
This little modification does the job in D2009
uses rtlconsts;
...
procedure TMyUnicodeIniFile.WriteString(const Section, Ident, Value:
string);
var s:Ansistring;
begin
s:=Utf8Encode(Value);
if not WritePrivateProfileStringA(PAnsiChar(AnsiString((Section))),
PAnsiChar(AnsiString((Ident))),
PAnsiChar(s),
PAnsiChar(AnsiString((FileName)))) then
raise EIniFileException.CreateResFmt(@SIniFileWriteError, [FileName]);
end;
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
