关于根据编辑框中汉字查表问题

2005-08-01 12:13:02 122 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

嵌入式GUI字体系统深度解析：从位图到TrueType的实战应用在嵌入式系统开发中，字体渲染是决定用户界面体验的关键技术。其核心原理涉及字符编码解析、字形数据存储与像素绘制优化等多个环节。从技术价值看，高效的字体系统能显著提升界面流畅度并优化内存使用，直接影响产品性能。常见的应用场景包括工业控制面板、智能家居中控屏和医疗设备显示等嵌入式设备。本文以emWin字体系统为例，深入探讨了位图字体与TrueType矢量字体的实现机制，并针对XBF格式外部位图字体和TrueType缓存管理提供了工程实践中的优化策略，帮助开发者在资源受限环境下实现最佳显示效果。阅读详情

我想做一个根据Edit中的汉字来查询汉字对应的字段，结果在 fieldbyname('Chinese').AsString := tmpVar提示：invalid variant type conversion 请大家帮我看一下问题所在！（我在数据库中定义字段chinese为Alpha类型

代码如下：
procedure TForm1.button1Click(Sender: TObject);
var
len ,count,i:integer;
tmpVar :Variant;
trans,tmpStr :Widestring;

begin
with table1 do
begin
table1.open();
indexfieldnames := 'Chinese';
setkey;
i := 1;
count := 1;
trans := Edit1.text;
len := length(trans);
tmpVar := VarArrayCreate([1,1],varVariant); //创建一个变量数组
while (i<len) do
begin
tmpStr := Copy(trans,i,2);
tmpVar[Count]:= tmpstr;
Inc(count);
VarArrayRedim(tmpVar,count);
i := i + 2;
fieldbyname('Chinese').AsString := tmpVar;
if gotokey then
memo1.text := memo1.text+fieldbyname('Address').Asstring;
end;
end;
end;

...全文