Zitat von
Hobby-Programmierer:
Hallo ...,
ich habe zwar noch nie ne Konsolenanwendung geschrieben, aber würde sich hier nicht eine Case Abfrage anbieten?
Das Case wollte ich auch vorschlagen... aber hast du ja leider schon
Wieso hast du ['a'..'z'] auskommentiert, und stattdessen UpperCase aufgerufen? Ich wette, dass es so schneller ist:
Delphi-Quellcode:
function CheckStr(Str: string): TStringTyp;
var
i: Integer;
begin
Result := [];
for i := 1 to Length(Str) do
begin
Case Str[i] of
'0'..'9' : Include(Result, Ziffer);
'a'..'z', 'A'..'Z' : Include(Result, Zeichen);
else Include(Result, Andere);
end;
if Result = [Ziffer, Zeichen, Andere] then break;
end;
end;