With フロー制御

Withステートメントはオブジェクト名を再定義せずに使用する便利なステートメントです。Delphiでも同名のWithを使用します。VBと違い、先頭にピリオドを入力しないので注意してください。

■ with の使用例 
procedure TForm1.Button1Click(Sender: TObject);      
begin
  with  Query1 do  begin
    Close;
    Unprepare;
    ParamByName('CUSTNO').AsInteger :=  0;
    Prepare;
    Open;
    while not Eof do  begin
      Edit;
      FieldByName('NAME').AsString  :=  '';
      Post;
      Next;
    end;
  end;
  {
  上のコードは以下のコードと同じ意味
  Query1.Close;
  Query1.Unprepare;
  Query1.ParamByName('CUSTNO').AsInteger :=  0;
  Query1.Prepare;
  Query1.Open;
  while not Query1.Eof do  begin
    Query1.Edit;
    Query1.FieldByName('NAME').AsString  :=  '';
    Query1.Post;
    Query1.Next;
  end;
  }
end;