我想将query.sql.text(动态的)中的第n个字符（串）替换，请问。。。

Question

replace(query.sql.text,....)
2 Length(query.sql.text);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  N, L: Integer;
begin
  L := Length(Query1.SQL.Text); //L即是字符个数
  N := 1; //N即是替换的位子
  if L < N then Exit;  S := Query1.SQL.Text;
  S[N] := '?';
  Query1.SQL.Text := S;
end;

Answer 2

你如果不明白怎样将query.sql.text(动态的)中的第n个字符（串）替换为某
字符，尤其觉得类似 
  query1.sql.Add('select * from t_sometable where name=''' +
     Edit1.text + ''' and  age=' + inttostr(Edit2.text));的语句不好写时，请到我到主页下载组件，它会帮你。
http://tzdgg.freephp.digiro.net/myco.zip
----------------------------------------------------