Hallo,
Ich arbeite für die Schule an einem Steganographieprogramm. Zuerst ging es darum, jeweils das letzte Bit des Farbcodes zu verändern. Nun habe ich zur Übung versucht, auch das vorletzte zu verändern. Allerdings funktioniert das nicht. Ich habe mit Showmessages überprüft, wie weit es geht, und bei dieser Schleife bleibt er hängen. Er zeigt dann an 'Index was outside the bounds of the array'. Dieselbe Schleife hat für das erste Programm aber funktioniert. Ich versteht nicht, warum es auf einmal nicht mehr geht. Versteht das jemand?
Delphi-Quellcode:
repeat
begin
inc(stelle2);
if strtoint(bincode[stelle2]) = 1 then
zahl := zahl + (power(2,(hochzahl - stelle2)));
end;
until stelle2 = 8;
Zahl ist vom Typ real; stelle2 und hochzahl sind vom Typ integer, bincode ist ein string.