查询出的字符型字段值，加工成SQL语句后如何有效执行？

[秋天之落叶]

比如字段值为'A+B'，且A和B均为另一个数据表的字段名，如果操作能正常执行：
if LowerCase(lx) = 'asfloat' then
XLSReadWriteII51.Sheets[0].AsFloat[k, i] := StrToFloat(ReplaceStr(ReplaceStr(str, '(', 'ADO.FieldByName('''), ')',''').asfloat'));
我想达到这个效果：
if LowerCase(lx) = 'asfloat' then
XLSReadWriteII51.Sheets[0].AsFloat[k, i] :=ADO.FieldByName('A').asfloat+ADO.FieldByName('B').asfloat;

[秋天之落叶]

其中str就是查询出的字段值： str:='A+B';

[秋天之落叶]

我使用TStringList解决了，但是我还是想知道delphi中有没有直接执行字符串的命令： sstr := TStringList.Create; sstr.Delimiter := '+'; sstr.DelimitedText := str; AsFloat[k, i] := 0; for s := 0 to sstr.count - 1 do begin Memo2.Lines.Add(sstr[s]); AsFloat[k, i] := AsFloat[k, i] + FieldByName(sstr[s]).AsFloat; end;

[日立奔腾浪潮微软松下联想]

uses System.StrUtils;

var
s: string;
// ...
for s in SplitString(str, '+') do
Memo2.Lines.Add(s);

[秋天之落叶]

引用 3 楼 早打大打打核战争 的回复:

uses System.StrUtils; var s: string; // ... for s in SplitString(str, '+') do Memo2.Lines.Add(s);

这也是一种拆分的方法，不知道这个语句如何执行？ str:='(A)+(B)'; XLSReadWriteII51.Sheets[0].AsFloat[k, i] :=？ (ReplaceStr(ReplaceStr(str, '(', 'ADO.FieldByName('''), ')',''').asfloat')); 直接执行会提示后面的不是浮点类型。其实使用asstring可以全部搞定，但是格式有点惨不忍睹，所以还是希望有数据类型。

[日立奔腾浪潮微软松下联想]

for s in SplitString(str, '+') do
begin
Memo2.Lines.Add(s);
AsFloat[k, i] := AsFloat[k, i] + FieldByName(s).AsFloat;
end;

[秋天之落叶]

引用 5 楼 早打大打打核战争 的回复:

for s in SplitString(str, '+') do begin Memo2.Lines.Add(s); AsFloat[k, i] := AsFloat[k, i] + FieldByName(s).AsFloat; end;

嗯，这个我已经实现了，哈 看来 ??? (ReplaceStr(ReplaceStr(str, '(', 'ADO.FieldByName('''), ')',''').asfloat')) 是不太好实现了？

[秋天之落叶]

引用 7 楼 早打大打打核战争 的回复:

不行，那样是要运行时生成源代码再执行，只有解释型语言才可以，不过你可以使用脚本组件，DWS、FastScript之类的，可以运行时生成Delphi源码再解释执行

原来如此，我说最后的字符串是一样的，要是能有一个标志启动脚本执行，就方便了，哈哈
下来研究一下脚本命令。

[日立奔腾浪潮微软松下联想]

不行，那样是要运行时生成源代码再执行，只有解释型语言才可以，不过你可以使用脚本组件，DWS、FastScript之类的，可以运行时生成Delphi源码再解释执行