Código Delphi [-]
procedure TFoo.Something;
var
  ds: TDataSet;
begin
  ds := Self.MyDataSet;

  ds.Close;
  ds.Open;
  ds.FieldByName('foo');
 // etc
end;

Código Delphi [-]
procedure Test;
var
  Collection: Spring.Collections.IEnumerable;
begin
  Collection
    .Where(function(const Each: TMyClass): Boolean
       begin
         Result := Each.Enabled;
       end)
   .Sort(function(const Left, Right: TMyClass): Integer
       begin
         Result := Left.Index - Right.Index;
       end)
  .ForEach(procedure(const Each: TMyClass)
       begin
         WriteLn(Each.Name);
       end);
end;

Código Delphi [-]
With.Algo := ...

Código Delphi [-]
Clave.Algo := ...

Código Delphi [-]
with TMiObject.Create as Clave do

Código Delphi [-]
type
  // Declare a customer record
  TCustomer = Record
    firstName : string[20];
    lastName  : string[20];
    address1  : string[100];
    address2  : string[100];
    address3  : string[100];
    city      : string[20];
    postCode  : string[8];
  end;

 var
  John, Sarah : TCustomer;

 begin
  // Set up the John's customer details
  With John do
  begin
    firstName := 'John';
    lastName  := 'Smith';
    address1  := '7 Park Drive';
    address2  := 'Branston';
    address3  := 'Grimworth';
    city      := 'Banmore';
    postCode  := 'BNM 1AB';
  end;

Código Delphi [-]
 begin
  // Set up the John's customer details
  With John do
    &firstName := FirstName; // FirstName podría ser una variable global... & es la marca e identifica a John

Código Delphi [-]
 begin
  // Set up the John's customer details
  With John do
    &firstName := FirstName; // FirstName podría ser una variable global... & es la marca e identifica a John

Código Delphi [-]
 begin
  // Set up the John's customer details
  With John do
    .firstName := FirstName;
    .lastName := LastName;
    .fullName := capitalize(.firstName  + " " + .lastName);

Código Delphi [-]
procedure TForm1.FormClick(Sender: TObject);
label
  mensaje2;
begin
  Goto mensaje2;
  MessageDlg('Mensaje 1', mtInformation, [mbOK], 0);
mensaje2:
  MessageDlg('Mensaje 2', mtInformation, [mbOK], 0);
end;

Código Delphi [-]
with Objecto do
begin
  "Propiedad := algo;
  "HacerAlgo();
  // etc...
end;

Código Delphi [-]
var
  John, Sarah : TCustomer;
begin
  // Set up the John's customer details
  with John do
  begin
    firstName := 'John';
    lastName  := 'Smith';
    address1  := '7 Park Drive';
    address2  := 'Branston';
    address3  := 'Grimworth';
    city      := 'Banmore';
    postCode  := 'BNM 1AB';
  end;

Código Delphi [-]
var
  John, Sarah : TCustomer;
begin
  // Set up the John's customer details
  with John do
  begin
    idem.firstName := 'John';
    idem.lastName  := 'Smith';
    idem.address1  := '7 Park Drive';
    idem.address2  := 'Branston';
    idem.address3  := 'Grimworth';
    idem.city      := 'Banmore';
    idem.postCode  := 'BNM 1AB';
  end;

Código Delphi [-]
var
  John, Sarah : TCustomer;
begin
  // Set up the John's customer details
  John.firstName := 'John';
  John.lastName  := 'Smith';
  John.address1  := '7 Park Drive';
  John.address2  := 'Branston';
  John.address3  := 'Grimworth';
  John.city      := 'Banmore';
  John.postCode  := 'BNM 1AB';

Código Delphi [-]
  dmClientesMain.objCliente.QueryClientes.FieldByName('ID').AsString := ID;
  dmClientesMain.objCliente.QueryClientes.FieldByName('Nombre').AsInteger := 'Nombre';
  dmClientesMain.objCliente.QueryClientes.FieldByName('Desc').AsString := 'Descripcion';
  dmClientesMain.objCliente.QueryClientes.FieldByName('Telefono').AsString := '123456789';
  ...

Código Delphi [-]
var
  q:TQuery;
begin
  q := dmClientesMain.objCliente.QueryClientes;
  q.FieldByName('ID').AsString := ID;
  q.FieldByName('Nombre').AsInteger := 'Nombre';
  q.FieldByName('Desc').AsString := 'Descripcion';
  q.FieldByName('Telefono').AsString := '123456789';
  ...

Código Delphi [-]
  with dmClientesMain.objCliente.QueryClientes do 
  begin
  it.FieldByName('ID').AsString := ID;
  it.FieldByName('Nombre').AsInteger := 'Nombre';
  it.FieldByName('Desc').AsString := 'Descripcion';
  it.FieldByName('Telefono').AsString := '123456789';
  end;
  ...

Código Delphi [-]
...
begin
  with TfrmClientes.Create(Self) do
  begin
    ShowModal;
    Free;
  end;
end;

Código Delphi [-]
...
var
  frmC: TfrmClientes;
begin
  frmC := TfrmClientes.Create(Self);
  with frmC do
    ShowModal;
  FreeAndNil(frmC);
end;

Código Delphi [-]
...
begin
  with Edit1, Label1 do
    Text := Caption;
end;

Código Delphi [-]
...
begin
  with Edit1 as E1, Label1 as L1 do
  begin
    E1.Font.Color := clBlue;
    L1.Font.Color := clRed;
    E1.Text := L1.Caption;
  end;
end;

Código Delphi [-]
...
begin
  with Edit1, Label1 do
  begin
    Font.Color := clRed;
    Text := Caption;
  end;
end;

Código Delphi [-]
...
begin
  with Edit1 do
  begin
    Font.Color := clBlue;
    with Label1 do
    begin
      Font.Color := clRed;
      Text := Caption;
    end;
  end;
end;