Die "richtige" Sourcecode Formatierung?

[Mavarik]

Zitat von Jumpy:

Delphi-Quellcode:

if .. then
  begin
  ..
  end
else if .. then
  begin
  ..
  end
else
  begin
  ..
  end;

Gruselig...Codesumpf nenne ich das...

Delphi-Quellcode:

if .. 
  then begin
        ..
       end
  else if .. 
         then begin
               ..
              end
         else begin
               ..
              end;

Und schon is klar was wohin gehört...

ggf.

Delphi-Quellcode:

if .. 
  then begin
        ..
       end
  else begin
         if .. 
           then begin
                 ..
                end
           else begin
                 ..
                end;
       end;

So würde ich es machen...

Mavarik

[mensch72]

Delphi-Quellcode:

if .. 
  then begin
        ..
       end
  else begin
         if .. 
           then begin
                 ..
                end
           else begin
                 ..
                end;
       end;

... mache ich bzgl. Struktur genauso, nur etwas kompakter und nicht so "raumgreifend" in die Breite

Delphi-Quellcode:

if (..) then begin
  ..
end else begin
  if (..) then begin
    ..
  end else begin
    ..
  end;
end;

und zumindest in CNpack und auch aktuell integriertem Castalia sieht das sogar sehr sauber aus

[jfheins]

Zitat von Mavarik:

So würde ich es machen...

Mavarik

Schrecklich

Ich würde das hier befürworten:

Delphi-Quellcode:

if .. then
begin
  ..
end
else if .. then
begin
  ..
end
else
begin
  ..
end;

Sowas macht man ja eigentlich nur, wenn man eigentlich ein ein case-Konstrukt bräuchte, das aber nicht zugelassen ist. (Ausdruck zur Compilezeit variabel oder so...)
Insofern finde ich es sinnvoll, das auch optisch analog zu gestalten. Logisch ist das auch nur eine "Unterebene", da nur einer der Subblöcke ausgeführt wird.

Wenn man da jeden Subblock weiter einrückt, hat man ja schnell ewig lange Zeilen.

Zur Praxisrelevanz ein (delphisiertes) Codezitat:

Delphi-Quellcode:

startTime, endTime: string;

if (SpecificRegex.IsMatch(Event.Time)) then
begin
    match := SpecificRegex.Match(Event.Time);
    startTime := match[0];
    endTime := match[1];
end
else if (RegexA.IsMatch(Event.Time)) then
begin
    startTime := '8:00';
    endTime := '10:00';
end
else if (RegexB.IsMatch(Event.Time)) then
begin
    startTime := '9:00';
    endTime := '12:00';
end
else if (RegexC.IsMatch(Event.Time)) then
begin
    startTime := '12:00';
    endTime := '15:00';
end
else if (RegexD.IsMatch(Event.Time)) then
begin
    startTime := '14:00';
    endTime := '16:00';
end
else
begin
    allDayEvent := true;
    startTime := Event.startTimeDate;
    endTime := Event.EndDate.AddDays(1);
end

Da habe ich dann auch lieber deutliche Einrückungen (1 Tab = 4 Leerzeichen) damit man die Blöcke direkt sieht. Würde man dann allein für das begin eine eigene Einrückungsebene einziehen, vergeudet man ja die Hälfte des Platzes...
Ich würde daher aus

Delphi-Quellcode:

if bla then
  begin
    TuWas;
  end

das machen:

Delphi-Quellcode:

if bla then
begin
    TuWas;
end

Dann kann man auch (etwas leichter) links am Rand 'runtergucken um das nächste end zu sehen.

[Mavarik]

Zitat von jfheins:

Sowas macht man ja eigentlich nur, wenn man eigentlich ein ein case-Konstrukt bräuchte, das aber nicht zugelassen ist.

nicht jede if then else ist ein Case ersatz!

Wo sind deine Then's geblieben? und auch noch Tabs... hmm ":="; hmm end : String?

Zitat von jfheins:

Da habe ich dann auch lieber deutliche Einrückungen (1 Tab = 4 Leerzeichen) damit man die Blöcke direkt sieht.

Immer 2 dann plötzlich 4??? Eher nicht.

Case Ersatz... (Wenn überhaupt)

Delphi-Quellcode:

start, end: string;

if (SpecificRegex.IsMatch(Event.Time))
  then begin
         match := SpecificRegex.Match(Event.Time);
         start := match[0];
         end   := match[1];
       end
  else 
if (RegexA.IsMatch(Event.Time))
  then begin
         start := '8:00';
         end   := '10:00';
       end
  else 
if (RegexB.IsMatch(Event.Time))
  then begin
         start := '9:00';
         end   := '12:00';
       end
  else 
if (RegexC.IsMatch(Event.Time))
  then begin
         start := '12:00';
         end   := '15:00';
       end
  else 
if (RegexD.IsMatch(Event.Time))
  then begin
         start := '14:00';
         end   := '16:00';
       end
  else begin
         allDayEvent = true;
         start = Event.StartDate;
         end = Event.EndDate.AddDays(1);
       end

[jfheins]

Zitat von Mavarik:

nicht jede if then else ist ein Case ersatz!

Nein, aber diese if then else -Ketten eher schon. Wenn da komplett unzusammenhängende Bedingungen abgefragt werden, dann würde ich da Leerzeilen einfügen zum trennen.

Zitat:

Wo sind deine Then's geblieben? und auch noch Tabs... hmm ":="; hmm end : String?

Immer 2 dann plötzlich 4??? Eher nicht.

Ups, länger nicht mehr Delphi gemacht. Thens habe ich nachgetragen, genauso wie die :=
Sry, die Tabs werden im Forum nicht gut angezeigt. (Tabs vs Spaces würde ich auf später verschieben...) Ich habe sie durch Leerzeichen ersetzt

[Der schöne Günther]

Habt Ihr euch mal überlegt dass man im Endeffekt ganz andere Probleme hat wenn man anfangen muss 5-fach verschachtelte Bedingungen zu schreiben?

Beiträge wie dieser sind wahrscheinlich der Grund weshalb ich nirgendwo eingeladen werde

[DeddyH]

Zitat von Der schöne Günther:

Habt Ihr euch mal überlegt dass man im Endeffekt ganz andere Probleme hat wenn man anfangen muss 5-fach verschachtelte Bedingungen zu schreiben?

Beiträge wie dieser sind wahrscheinlich der Grund weshalb ich nirgendwo eingeladen werde

(abgesehen davon finde ich den ganzen Thread irgendwie müßig, jeder hat da seine eigenen Vorlieben).

[mm1256]

Zitat von DeddyH:

(abgesehen davon finde ich den ganzen Thread irgendwie müßig, jeder hat da seine eigenen Vorlieben).

Meine Worte im anderen Thread. Aber, interessant mal zu sehen, wie Andere ihren Code formatieren.

[bernau]

Zitat von mm1256:

Aber, interessant mal zu sehen, wie Andere ihren Code formatieren.

Darum geht es, deshalb finde ich solche Threads niemals müßig.

[bra]

Beim letzten Beispiel sieht man nur lauter IF's aber die so seltsam eingerückten ELSE vorher gehen komplett verloren. Das nenn ich mal unübersichtlich.

Ich denke über dieses Thema könnte man endlos streiten und nie zu einem Kompromiss finden, jeder hat hier halt seine Vorlieben. Vielleicht sollten wir es dabei auch belassen