for i:=0 to ComponentCount-1 do
begin
if IsPublishedProp(Components[i],'Caption') then
begin
SCaption[i]:=(GetPropValue(Components[i],'Caption'));//取得Form的當前語言
ADOQuery2.SQL.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Add('select * from TABLE2 where '+language2+'='''+SCaption[i]+''''); //查詢當前語言
ADOQuery2.Open;
if ADOQuery2.RecordCount<>0 then
begin
SCaption[i]:=ADOQuery2.fieldByName(language).AsString;
SetPropValue(Components[i],'Caption',SCaption[i]); //設置語言
end;
end;
end;
posted on 2006-08-25 09:36
才子￡鸣 阅读(641)
评论(0) 编辑 收藏 引用