Question

delphi if then WITH DO 出错啊～～

procedure TForm4.btn1Click(Sender: TObject);
var
ii:string;
pp:Integer;
begin

if edt1.Enabled=True then
ii:='id='''+edt1.text+'''';
with unit5.test.qry2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from dbo.test where '+ii+'');
Open;
Unit5.test.lbl22.Caption:=fieldbyname('ID').asstring;
end
else
with unit5.test.qry1 do
begin
ii:='Indate between '''+datetostr(dtp1.Date)+'''and'''+Datetostr(dtp2.Date)+'''';
Close;
SQL.Clear;
SQL.Add('select * from dbo.inform where '+ii+'');
Open;
/////////
unit5.test.dbgrdh1.AutoFitColWidths:=True;
for pp:=0 to unit5.test.dbgrdh1.Columns.Count-1 do
with unit5.test.dbgrdh1.Columns[pp] do
OptimizeWidth; //自动排序
end;

[Hint] Unit4.pas(60): Variable 'pp' is declared but never used in 'TForm4.btn1Click'
[Error] Unit4.pas(73): 'END' expected but 'ELSE' found
[Error] Unit4.pas(74): ';' expected but 'WITH' found
[Error] Unit4.pas(76): Undeclared identifier: 'ii'
[Error] Unit4.pas(76): Undeclared identifier: 'dtp1'
[Error] Unit4.pas(83): '.' expected but 'FOR' found
[Warning] Unit4.pas(86): Text after final 'END.' - ignored by compiler
[Fatal Error] Unit4.pas(7): Could not compile used unit 'Unit4'

跪求～～～ 高手帮我！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ii: string;
  pp: Integer;
begin
  if edt1.Enabled = True then
  begin
    ii:= 'id=''' + edt1.text + '''';
    with unit5.test.qry2  do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from dbo.test where '野汪 + ii + '');
      Open;
      unit5.test.lbl22.Caption:= fieldbyname('ID').asstring;
    end;
  end
  else
  begin
    with unit5.test.qry1  do
 旅明   begin
      ii:= 颂镇仔'Indate between ''' + datetostr(dtp1.Date) + ''' and ''' + Datetostr(dtp2.Date) + '''';
      Close;
      SQL.Clear;
      SQL.Add('select * from dbo.inform where ' + ii + '');
      Open;
      unit5.test.dbgrdh1.AutoFitColWidths:= True;
      for pp:= 0 to unit5.test.dbgrdh1.Columns.Count - 1 do
        with unit5.test.dbgrdh1.Columns[pp] do
          OptimizeWidth;   //自动排序
    end;
  end;
end;

Answer 2

if .. then 之后 加入begin
else 之前加入end

目前的清举察代码else没答闭法 找到答茄前面的if语句。