delphi 容错提示语句汇总

打开文件失败的容错提示语句

try
    if OpenDialog1.Execute then
    begin
    MyList.Clear;
    MyList.LoadFromFile(OpenDialog1.FileName);
    end;
    except
      on E:EReadError do
      ShowMessage('打开文件失败');
    end;

//防止程序假死

Application.ProcessMessages;

//删除记录时提示的语句

try
  with TADOQuery.Create(nil) do
  begin
    Connection := frmDataPool.ADOConnection1;
    )<>mryes then
       Abort
    else
    begin
    SQL.Text := 'DELETE FROM 工资表';
    ExecSQL;
    end;
        //防止程序假死
    Application.ProcessMessages;
     //刷新下显示
    frmDataPool.qry工资表.Close;
    frmDataPool.qry工资表.Open;

  end;
finally
   TADOQuery.Create(nil).Free;
end;

for循环

  do
  begin
     then
    begin
      ASql := ASql + frmDataPool.qry工资表.Fields[I].FieldName + ' LIKE ''%' + AKey + '%''';
    end else begin
      ASql := ASql + ' OR ' + frmDataPool.qry工资表.Fields[I].FieldName + ' LIKE ''%' + AKey + '%''';
    end;
  end;

if then else

procedure TForm3.DBGrid1TitleClick(Column: TColumn);
begin
  if frmDataPool.qry需要做的事.SQL.Text.Contains('DESC') then
  begin
    with frmDataPool.qry需要做的事 do
    begin
      Close;
      SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' ASC';
      Open;
    end;
  end else begin
    with frmDataPool.qry需要做的事 do
    begin
      Close;
      SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' DESC';
      Open;
    end;
  end;
end;

for in

contains

while not...EOF do

   do
  begin
    fieldName := frmDataPool.qry需要做的事.FieldDefs[i].Name;
    if not 'ID说明附件事情'.Contains(fieldName) then
    begin
      node := TreeView1.Items.Add(nil, fieldName); {字段名}
      {为避免数据重复, 先把数据给 List}
      List.Clear;
      frmDataPool.qry需要做的事.First;
      while not frmDataPool.qry需要做的事.Eof do
      begin
        List.Add(frmDataPool.qry需要做的事.FieldByName(fieldName).AsString);
        frmDataPool.qry需要做的事.Next;
      end;
      {把 List 中的数据加入到 TreeView}
      for s in List do
      begin
        TreeView1.Items.AddChild(node, s);
      end;
    end;
  end;