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....

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
  ...
  ...
 

Last Update: 2008-09-09