was soll das übersetzt heißen?

[EMS]

so denk ich mir das wo liege ich denn falsch?

[Helmi]

hast du mein vorletztes Post gelesen?

[EMS]

den habe ich nicht ganz verstanden

[Helmi]

Zitat von EMS:

den habe ich nicht ganz verstanden

und was hast nicht verstanden?

[Helmi]

Zitat von Helmi:

Delphi-Quellcode:

   for spalte:=1 to laenge_der_verschluesselung do
      begin
      farbe:=image1.Canvas.Pixels[spalte,0];
      wert:=tex[spalte];

      rneu:=ord(tex[spalte]);
      gneu:=ord(tex[spalte+1]);
      bneu:=ord(tex[spalte+2]);
      showmessage('Wert rneu '+inttostr(rneu));
      showmessage('Wert gneu '+inttostr(gneu));
      showmessage('Wert bneu '+inttostr(bneu));

      If spalte = laenge_der_verschluesselung then
        break;
      end;

Das Beispiel war Blödsinn von mir
Richtig ist, dass die Repeat-Schleife entfernt werden muss.
Die If-Anweisung mit dem Break ist vollkommen umsonst, da der maximale Schleifenwert ja "laenge_der_verschluesselung" ist, also so:

Delphi-Quellcode:

   for spalte:=1 to laenge_der_verschluesselung do
      begin
      farbe:=image1.Canvas.Pixels[spalte,0];
      wert:=tex[spalte];

      rneu:=ord(tex[spalte]);
      gneu:=ord(tex[spalte+1]);
      bneu:=ord(tex[spalte+2]);
      showmessage('Wert rneu '+inttostr(rneu));
      showmessage('Wert gneu '+inttostr(gneu));
      showmessage('Wert bneu '+inttostr(bneu));
      end;