Isalpha, IsNum, IsString als eine Funktion

[R2009]

hi,

selbst auf die Gefahr hin zum Dauermeckerer zuwerden, ich kann hier keinerlei Zuordnung der elses zu irgenwelchen if's erkennen.
Das ist der Sinn des Delphi Styleguides. Code soll so leserlich wie möglich gehalten werden.
Das ist bei dir nicht der Fall.

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;

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;

Viele Grüsse