¿Y tú cómo pones las llaves cuando programas?

[[Al González]]

Una muestra de mi código en una biblioteca de componentes:

Código Delphi [-]
  Function TMagiaClientDataSet.BaseProp (Const Prop :DSProp) :Integer;
  Var
    Props :PDSProps;
  Begin
    { NOTE: IDSBase.GetProp don't work properly with the dspropReadOnly
      constant (DataSnap bug).  It is necessary to use the IDSBase.GetProps
      method in order to get the value of this property. }
    If Prop = dspropReadOnly Then
    Begin
      New (Props);

      Try
        Check (DSBase.GetProps (Props^));
        Result := Integer (Props.bReadOnly);
      Finally
        Dispose (Props);
      End;
    End
    Else
      Check (DSBase.GetProp (Prop, @Result));
  End;

Sangrado de dos espacios, uso de mayúsculas y minúsculas incluso en las palabras reservadas, espacio antes de abrir paréntesis de función, dos puntos (":") como prefijo del tipo de dato y línea en blanco antes de empezar bloque después de sentencias (como esa línea en blanco que está antes del Try).

:)

[javier7ar]

yo en delphi uso BSD/Allman

Código Delphi [-]
if condicion then
begin
  sentencia0;
  sentencia1;
end;

pero en los lenguajes que usan las llaves en lugar de begin end (C,PHP,Java, etc) uso Kernighan&Ritchie/Kernel

Código PHP:

if condicion {
  sentencia0;
  sentencia1;
} 


raro no? locuras de uno
Saludos

[Casimiro Noteví]

Empezado por Al González

Sangrado de dos espacios, uso de mayúsculas y minúsculas incluso en las palabras reservadas, espacio antes de abrir paréntesis de función, dos puntos (":") como prefijo del tipo de dato y línea en blanco antes de empezar bloque después de sentencias (como esa línea en blanco que está antes del Try).

También uso mayúsculas y minúsculas y las escribo siempre igual porque estoy acostumbrado al C, donde son distintas unas y otras. En delphi sigo la misma costumbre aunque no sea necesario.
En lugar del espacio que tú dejas, yo hago algo parecido: dejo el espacio pero pongo //

Código Delphi [-]

    If Prop = dspropReadOnly Then
    Begin
      New (Props);
      //
      Try
        Check (DSBase.GetProps (Props^));
        Result := Integer (Props.bReadOnly);
      Finally
        Dispose (Props);
      End;
    End
    Else
      Check (DSBase.GetProp (Prop, @Result));

[[newtron]]

Cafés.... tequilas.... cuanto vicio....

[ContraVeneno]

es por eso que las llaves se olvidan....

[[ElKurgan]]

Suerte ustedes, que son jóvenes...

A mi edad ya me prohiben el alcohol y el café, por lo que tengo que beber manzanillas...

[Casimiro Noteví]

je, je... bueno, yo ya sólo me tomo una o dos tazas cada día y por la noche alguna infusión, que la edad no perdona :s