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
