Filsize(datei vom typ file);

[Sharky]

Hai Chrissi,

genau habe ich mir die Unit nicht angesehen. Compilieren kann ich ihn ja ohne die DFM-Datei und die notwendigen anderen Units eh nicht.

Aber eines fällt auf: Du solltest dringend daran arbeiten deinen Quellcode zu formatieren.

Delphi-Quellcode:

function PassphraseQuality(const Password: String): Extended;
function Entropy(P: PByteArray; L: Integer): Extended;
 var
  Freq: Extended;
  I: Integer;
  Accu: array[Byte] of LongWord;
begin
.
end;
.
.

Alleine hier habe ich suchen müssen wo der Code für die Funktion PassphraseQuality überhaupt steht.

Solche sachen machen es fast unmöglich fehler im Code vernünftig zu suchen finde ich.
Ein kleiner Tip! Von den Jedis gibt es einen schönen Codeformater. Dieser formatiert dir den Quellcode fast genau nach dem Borlandstylequide.