guter stil????

[xaromz]

Ach ja,
in der Routine "Pruefen":

Delphi-Quellcode:

  if p = true then 
    pruefen := true 
  else 
    pruefen := false;

Wie wäre es hier mit
Result := p; Gruß
xaromz