mhh, weiß nicht, was soll daran falsch sein?
ich glaube nicht daß dort der Fehler liegt.
was gibt es denn besseres?
Close; ?
nein, ich meine... wenn Ihr auf Button 3 oder bei den beiden [button 3 und 1] abwechselnd drückt...
tritt der Fehler auf.
oder: HIER ist der Code:
_______________________________
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
pwl,i, Colord_cnt: integer;
ColordString,Colord, Texti : string;
ColorByte : Byte;
begin
Colord := edit1.text;
Colord_cnt:=1;
pwl :=Length (Edit1.Text); <-<-<---<<<< gerade editiert , hinzugefügt
for i := 1 to Length (texi)*2 do
begin
Colord_cnt:=Colord_cnt +1;
if Colord_cnt > pwl then
begin
Colord_cnt:= 1;
end;
Colorbyte:= ord(Colord[Colord_cnt]) ;
Colord[Colord_cnt] := chr (Colorbyte+3);
Texi[i] := chr (ord (Texi[i]) xor ord(Colord[Colord_cnt]));
end;
Label1.Caption := Colord;
end;