Isalpha, IsNum, IsString als eine Funktion

[himitsu]

Problem ist dann nur bei "längeren Prozeduen, daß man diese dann nicht mehr überschauen kann, da sie so statt z.B. nur einer Bildschirm-Seite/Höhe gleich mal 2 bis 3 Mal so lang wird

21 Zeilen

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;

13 Zeilen

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;

na gut ... nur 12 Zeilen

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;

6 Zeiler (so sieht's meißt bei mir aus ... die Codes muß aber meißt eh nur ich verstehn)

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;

aber ist nun fast 4 Mal so lang ... stell dir das nun mal bei einer 50-zeiligen Prozedur vor, welche jetzt plötzlich 200 Zeilen wäre ... also übersichticher ist soein begin-end-überfluteter Code dann nicht wirklich.


so, aber ich glaub hier ging es eh um was anderes