Der Epina Delphi-Kurs bietet Ihnen eine allgemeine Einführung in das Programmieren mit Delphi/Pascal. Mit vielen ausgearbeiteten Beispielen können Sie direkt in die Delphi-Programmierung einsteigen. Mehr dazu finden Sie hier....

Home Formatierung von Pascal-Code Richtlinien zur Formatierung von Delphi Code Hierarchie-Ebenen und Einrückungen Einrückungen bei "else-if" Leitern
See also: Einrückungen für 'begin' und 'end', Einrückungen von 'if'-statements ohne 'else', Einrückung bei 'if' mit 'else'-Teil 
del.icio.us Reddit Facebook StumbleUpon MySpace Twitter

Einrückungen bei 'else-if' Leitern

else-if Leitern:

  ...
  ...
  if a.Components[i] IS TButton then
    begin
    TButton(a.Components[i]).caption := translate(TButton(a.Components[i]).caption);
    TButton(a.Components[i]).hint := translate(TButton(a.Components[i]).hint);
    end
  else if a.Components[i] IS TBitBtn then
    begin
    TBitBtn(a.Components[i]).caption := translate(TBitBtn(a.Components[i]).caption);
    TBitBtn(a.Components[i]).hint := translate(TBitBtn(a.Components[i]).hint);
    end
  else if a.Components[i] IS TLabel then
    begin
    TLabel(a.Components[i]).caption := translate(TLabel(a.Components[i]).caption);
    TLabel(a.Components[i]).hint := translate(TLabel(a.Components[i]).hint);
    end
  else if a.Components[i] IS TEdit then
    begin
    TEdit(a.Components[i]).text := translate(TEdit(a.Components[i]).text);
    TEdit(a.Components[i]).hint := translate(TEdit(a.Components[i]).hint);
    end
  else if a.Components[i] IS TSpeedButton then
    begin
    TSpeedButton(a.Components[i]).caption := translate(TSpeedButton(a.Components[i]).caption);
    TSpeedButton(a.Components[i]).hint := translate(TSpeedButton(a.Components[i]).hint);
    end
  else if a.Components[i] IS TCheckBox then
  ...
  ...
 

Home Formatierung von Pascal-Code Richtlinien zur Formatierung von Delphi Code Hierarchie-Ebenen und Einrückungen Einrückungen bei "else-if" Leitern

Last Update: 2008-09-09