入力に応じてRichEditコンポーネントを埋めるプロシージャを作成しました。
procedure LoadCPData(ResName: String);
begin
ResName := AnsiLowercase(ResName) + '_data';
rs := TResourceStream.Create(hInstance, ResName, RT_RCDATA);
try
rs.Position := 0;
info.reMeta.Lines.LoadFromStream(rs);
finally
rs.Free;
end;
end;
注:上記の手順は、.pas
Functionsという外部ファイルに保存されています。
フォームでプロシージャを呼び出すと、RichEditは空のままになります。ただし、そのコードブロックをフォーム自体に配置すると、RichEditコンポーネントは期待どおりに問題なくデータを入力します。case
これで、上記のコードブロックをフォーム自体に配置できましたが、ステートメントでプロシージャを複数回使用する予定です。
手順を機能させるには、何を含める必要がありますか?
よろしくお願いします!