Isalpha, IsNum, IsString als eine Funktion

[Tyrael Y.]

Zitat von R2009:

...

korrekt: (hier kann man den Code wenigstens lesen)

Delphi-Quellcode:

   for i:=1 to Length(Str) do 
   begin 
      if str[i] in ['0'..'9'] then Include(Result, Ziffer); 
      else if str[i] in ['a'..'z','A'..'Z'] then Include(Result, Zeichen); 
           else Include(Result, Andere); 
      if Result = [Ziffer, Zeichen, Andere] then 
         break; 
   end;

...du sagst das kann man gut lesen, ich habe 2 mal genau hingucken müssen, was mich zu der Annahme, nein, Überzeugung bringt, auch dein Code ist nicht wirklich vernünftig formatiert


ICH würde es so machen...und jetzt vergleich mal, bei welchem Code man nur einmal gucken muss.

Delphi-Quellcode:

   for i:=1 to Length(Str) do 
   begin 
      if str[i] in ['0'..'9'] then 
      begin
         Include(Result, Ziffer); 
      end else 
      if str[i] in ['a'..'z','A'..'Z'] then 
      begin
        Include(Result, Zeichen); 
      end else 
      begin
        Include(Result, Andere); 
      end;

      if Result = [Ziffer, Zeichen, Andere] then
      begin 
         break; 
      end;
   end;

Jetzt kommt die Frage, "Muss das sein bei einer Zeile einen begin end zu haben?".
Meiner Meinung nach eindeutig JA!

1. Es ist auf dem ersten Blick klar, wo ein Block anfängt und aufhört.
2. Wenn man den Code erweitert muss man nicht genau gucken wo die Erweiterung hingehört und
alles neu formatieren.
3. Der Code sieht überall gleich aus -> besser lesbar.

Code Formatierung sollte, meiner Meinung nach, konsequent sein.
IMMER!