Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2007
Ich habe einen Fehler in der Funktion letter_frequency gefunden.//Funktion für die (periodische) Häufigkeitsanalyse
function letter_frequency (chiffre:string;keylength:integer):TLetterFreq;
var i,j,k : integer;
teilchiffre : string;
begin
SetLength(Result,keylength);
for i:=0 to keylength - 1 do //<-- hier, es muss - 1 heißen oder besser gleich mit Low und High arbeiten...
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2007
Naja, schaden kann es nicht. Aber bitte nicht im Quellcode, sondern als Anhang;)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Okt 2007
Ah, Moment. Versuch es mal mit for k:=0 to keylength-2 do
Du greifst ja auch in der Schleife auf k+1 zu.