如何将字符串中的值取出(30分)

我构造了一个系统维护的树，每个结点对应一个表名（字符串形式。如s='Course',
而字符串中的Course恰好是我已打开的一个Tquery,我用什么方法从s中得到无引号的Couse
呢？（我想引用其对应的方法）。在VFP中可用&（宏代换轻松解决）
焦急的蚂蚁在线等候。。。。

用通用语言编程怎么老想着 VFP 那套巧劲？现代编译器都对标识符进行
智能化处理，你定义一个 ThisIsALongIdent ，编译器可能会替换成 Id001，
放弃这种想法吧。

这就是微软的毒........

表达不清：（
Tquery中包含的是sql语法吗？
我只明白adoquery
其实只打开一个 adoquery 就够了吧，
adoquery.sql(Course)

把问题描述清楚好吗？

用TParser可以词法分析。

没有宏

不会吧，转成Sql语句。
sql.text := 'select * from ' + s;

procedure TForm1.Button1Click(Sender: TObject);
var
ms:TMemoryStream;
k:TParser;
begin
ms:=TMemoryStream.Create;
ms.Write(edit1.text[1],Length(edit1.text));
ms.Position :=0;
k:=TParser.Create(ms);
try
while k.Token<>toEOF do
begin
Case k.Token of
toInteger:
begin

end;
toFloat:
begin

end;
toSymbol:
begin

end;
toString:
begin

end;
toWString:
begin
end;

end;
showmessage(k.TokenString);
k.NextToken;
end;
finally
k.Free;
ms.Free;
end;
end;

表达不清