我编写了一个根据输入填充 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
现在我可以将上面的代码块放在表单本身中,但我计划在一个语句中多次使用该过程。
为了使我的程序起作用,我需要包括什么?
提前谢谢你!