das problem ist das wir so nen paar sachen erzählt bekommen haben von unserem dozenten
und der nix anderes dann akzeptiert er meint das kann dann nur ausm Internet kommen und das ist ja alles falsch und schlecht...
ich möchte jetzt ja nur diese neuen Pixelwerte aus meinem Editfeld der Reihe nach in das
rneu,gneu,bneu rein haben
jetzt hab ich das alles so geschrieben aber er bricht die schleife nicht ab.
ich hab doch das until spalte+2 oder kann der das da nicht?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
hindex,bildhoehe,bildbreite,zeile,spalte,X,Y,index1,laenge_der_verschluesselung,idt{Indexdeltatext}: integer;
b:byte;
farbe,ordnungszahl,farbe1,rneu,gneu,bneu,neues_pixel:integer;
code,tex,wert:string;
ch:char;
begin
spalte:=0;
zeile:=0;
tex:=Edit4.text;
application.processmessages;
ASSIGNFILE(f,'NeuesBild.dat');
REWRITE(F);
Code:=edit4.text;
laenge_der_verschluesselung:=length(Code);
showmessage('Länge der Verschlüsselung '+inttostr(laenge_der_verschluesselung));
repeat
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;
until spalte+2=laenge_der_verschluesselung;
Neues_Pixel:=(bneu shl 16) + (gneu shl 8)+ rneu;
Closefile(f);
end;