ich hab da ein paar kleine problemchen:
ich habe eine rc datei, die als
unicode-textdatei gespeichert ist, mit etwa folgendem inhalt:
Code:
STRINGTABLE
BEGIN
1, "Unicodetext"
END
umgewandelt wird das ganze mit:
Code:
@rc /fo language.res language.rc
ausgelesen mit:
Delphi-Quellcode:
function GetStringFromRessource(ID, Offset: Integer): string;
var
p: PChar;
begin
p := StrAlloc(256);
try
if LoadString(hInstance, ID + Offset, p, 255) <> 0 then
Result := p
else
Result := '';
finally
StrDispose(p);
end;
end;
[...]
const Offset = 0;
[...]
tntLabel1.Caption := GetStringFromRessource(1, Offset);
das klappt mit normalem text prima, bis unicodezeichen dargestellt werden müssen. dann kommen nur fragezeichen. (in den TntWare Delphi
Unicode Controls)
ich hoffe, dass das problem gelöst ist, sobald die GetStringFromRessource funktion richtig umgestellt ist. (die res datei sollte doch hoffentlich richtig erstellt werden)
): string; -> ): Widestring;
p: PChar; -> p: PWideChar;
LoadString -> LoadStringW
StrAlloc -> ?
StrDispose -> ?
zu den letzten beiden befehlen bräuchte ich die entsprechenden widechar-befehle. habe aber keine ahnung, welche das sind. StrDisposeW und StrAllocW sind es schon mal nicht
(außer es gibt da ne extra
unit dafür
)
danke
