@Toxman: Hier geht's nicht um Preise in Schönheit. Wenn dir das Format nicht passt, Du aber etwas Konstruktives beitragen willst, dann kopier dir den Code und DelForExp den einfach. oder JCL formatte, oder Greg's formatte ihn, oder was man sonst noch. Ach ja, früher gabs auch 'Pretty printer'.
Und @juergen: Lass Dir wegen a,b und c nichts einreden. Das ist völlig legitim, das es um einfache Berechnungen geht.
Unabhängig davon würde ich stur alle Variablen peu-a-peu initialisieren, so wie Du das mit a,b und c exerziert hast. Allerdings sind 20 lokale Variablen in einer Routine ein Indiz für 'schlechte' Programmierung, bzw. für Dich ein Ansporn, etwas zu verbessern.
Etwas aus Faulheit nicht auszucoden, MUSST Du Dir abgewöhnen. Faulheit beim coden ist zwar legitim, sollte aber nur dazu dienen, Fragmente zu zentralisieren: Bevor ich 1000x folgendes schreibe....
Delphi-Quellcode:
....
If not Assigned (fmSomeForm) Then
Application.Createform (TfmSomeForm, fmSomeForm)
...
baue ich mir eine Routine
Delphi-Quellcode:
Procedure CreateForm (aFormClass : TFormClass; Var aForm : TForm);
Begin
If not Assigned (Instance) Then
Application.Createform (aFormClass, aForm)
End;
Hier dient die Faulheit zur Erhöhung der Übersichtlichkeit (eine unserer Hauptregel für's Coden).