リソース（.res）ファイルからのテキストのロード

Question

数日前にこのチュートリアルが見つかりました。私がリソースファイルからテキストをロードすることだけに興味があるので、私は必要なものに関連するものを使用しました。コードはチュートリアルから見つけることができますhere見つけることができます。注：私は関数のコードを使用していますGetResourceAsPointerとGetResourceAsString。私は持っています：

• 1つのテキストファイルを含むリソースファイルを作成しました。テキストファイルには、「テスト」
• が含まれています{$ Rのresource.res}

注含ま：私はリソースから文字列をロードするためにメモを使用しています。

プログラムはエラーなしでコンパイルすることができますが、ボタンをクリックしてメモに文字列をロードすると、文字列はロードされますが「テスト」ではロードされません。代わりに、私は四角形や中国語のようなランダムな文字を取得します。

誰でも問題の原因を知ることができますか？誰もこれを前に経験していますか？

ありがとう、Peter

Answer 1

EXEに追加されたリソースからテキストを取得するために、次の2つのルーチンを使用します。1つのルーチンはANSI文字列用であり、もう1つはUnicode文字列用です。あなたのランダムな文字は、必要以上に多くの文字を読むことが原因かもしれません。

Function GetResString (i, lang: integer): string; 
var 
buffer: array [0..400] of char; 
ls: integer; 

begin 
result:= ''; 
ls:= loadstring (hinstance, i + lang * 1000, buffer, sizeof (buffer)); 
if ls <> 0 then result:= buffer 
end; 

function LoadResW (id, lang: integer): WideString; 
const 
maxlength = 1024; 

var 
ls: integer; 

begin; 
setlength (result, maxlength); 
ls:= loadstringw (hinstance, lang * 1000 + id, 
pwidechar (result), length (result)); 
if ls > 0 
    then setlength (result, ls) 
    else result:= '' 
end; 

Answer 2

リソースに割り当てたテキストファイルはどのエンコードですか？ ANSIの場合は、ユニコードとして保存してみてください（GetResourceAsString、記事使用PCharタイプ）。