100分，我有一个奇怪的构想，是关于编历的，你门可以给些意见吗，

Question

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
   for i:=0 to Form1.ComponentCount-1 do
   begin
      if Form1.Components[i] is tedit then
      begin
        if ((form1.components[i] as tedit).name='a') or  ((form1.components[i] as tedit).name='b') then
        (form1.components[i] as tedit).text:='';
      end;
      if Form1.Components[i] is tcombobox then
      begin
        if ((form1.components[i] as tcombobox).name='c') or  ((form1.components[i] as tcombobox).name='d') then
        (form1.components[i] as tcombobox).itemindex:=-1;
      end;
   end;
end;

Answer 1

这跟SQLServer有什么关系，你怎么会说到存储过程呢？看来你应该先看看入门的书。

Answer 2

这样是可以 lincanwen(海) ，但是如果有一百个各不相同的呢？偶不敢想象！我不是太明白这么做的意思！

Answer 3

什么意思啊？？
为这4个构件各自做一个标签 是为他们加上label么？
看后面有不象。又好象是给他们text复值