Repeatschleife macht Ärger....

[schokoschnecke]

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.

[daywalker9]

Wie genau hast du bincode deklariert?

[Uwe Raabe]

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

[hoika]

Hallo,

hast du beim Compilieren irgendwelche Warnungen ?


Heiko

[WM_CLOSE]

Warum so kompliziert?

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;