Einrücken ::: ::: Wie rückt ihr ein?

[littleDave]

Hier mal meine Variante

Delphi-Quellcode:

type
  TData = record
    x, y, z, a : single;
    Wow        : string;
  end;

procedure BlubName(aTest: string; aTest2: integer);
var i       : integer;
    value   : string;
    pObj    : TObject;
    bmp     : TBitmap;
begin
  // ein Kommentar
  if TestMethode(aTest) then
  begin
    // eine Case-Abfrage
    case aTest2 of
    1    : begin

           end;
    1024 : aTest := 'abc';
    else   aTest := 'n Fehler';
    end;
  end else
  begin
    { Längere Beschreibung
      die auch mal über mehere Zeilen geht }
    BlubName(aTest + IntToStr(aTest2), aTest2 + 1);
  end;

  (* Quelltext der auskommentiert wurde + Grund

     if i = 0 then
        i := 5
     else 
        i := 5 + i;
  *)


  { ein Try-Finally-Konstrukt schreib ich erstmal automtisch hin
    sobald ich ein Create aufrufe }
  pObj := TObject.Create;
  try
    value := pObj.ClassName + ' - ' + pObjc.Irgendwas;
 
    for i:=0 to pObj.Count-1 do
      if pObj.Available[i] then
         pObj.Add(value)
      else
         pObj.Available[i] := False; 

    bmp := TBitmap.Create;  
    try 
      // die Strings sind bei mir fast immer Konstanten oder variablen
      if not FileExists('hm, keine Ahnung') then
         raise Exception.Create('Konnte ''hm, keine Ahnung'' nicht finden');

      bmp.LoadFromFile('hm, keine Ahnung');
      if FileExists('woanders hin') then
         DeleteFile('woanders hin');

      bmp.SaveToFile('woanders hin');
    finally
      bmp.Free;
    end;
  finally
    { FreeAndNil benutz ich nur bei Objekten, die in einer Klasse oder
      Global gespeichert sind }
    pObj.free;
  end;
end;

MfG [/quote]