说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于delphi的一个问题

编辑:说三道四文库 发布时间:2018-02-20 02:22
HTML文档下载 WORD文档下载 PDF文档下载
以下代码编译说:
  labreport.pas(47):Identifier expected but 'begin'found
  labreport.pas(52):undecleared identifier:'i'

procedure Tlabreporting.QuickRepBeforePrint(Sender: TCustomQuickRep;
var
  i:integer; 
begin                 ---------------------------(47)
  moduling.labtable.Open;
  with moduling.countlab do
  begin
     execproc;
     for i:=1 to parambyname('@return') do   ---------------------(52)
     begin

       with moduling.spcountstudent do
       begin
       execproc;
       moduling.labtable.fieldbyname('zhongrenshu').value:=parambyname('@return').asstring;
       end;

       with moduling.spcountchuxi do
       begin
       parambyname('@lnum').asstring:=moduling.labtable.fieldbyname('lnum').asstring;
       execproc;
       moduling.labtable.fieldbyname('zhongrenshu').value :=parambyname('@return').asstring;
       end;

       with moduling.spcountchidao do
       begin
       parambyname('@lnum').asstring:=moduling.labtable.fieldbyname('lnum').asstring;
       execproc;
       moduling.labtable.fieldbyname('zhongrenshu').value:=parambyname('@return').asstring;
       end;

       with moduling.spcountsuccess do
       begin
       parambyname('@lnum').asstring:=moduling.labtable.fieldbyname('lnum').asstring;
       execproc;
       moduling.labtable.fieldbyname('zhongrenshu').value:=parambyname('@return').asstring;
       end;

       moduling.labtable.next
    end;
  end;
end;

procedure Tlabreporting.QuickRepBeforePrint(Sender: TCustomQuickRep;
没有右括号
 粗心
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘