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?

markieren

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.

Wie genau hast du bincode deklariert?

...und welchen Wert hat stelle2 vor dem repeat?

Hallo,

hast du beim Compilieren irgendwelche Warnungen ?


Heiko

Warum so kompliziert?

zusammenfalten · markieren

Delphi-Quellcode:

var
  c:Cardinal;
  s:String;
  i:Integer;
begin
  s:='10100111';
  c:=0;
  for i:=1 to Length(s) do
  begin
    if s[i]='1' then
      c := c or (1 shl (Length(s)-i));
  end;
  showmessage(IntToStr(c));
end;