Hallo,
Onderstaand code fragment werkt wel in Delphi (D7) maar niet in Lazarus (versie 1.4). Enig idee hoe dit wel werkend te krijgen is?
Met een vriendelijke groet, FransCode:function TForm1.EnDeCrypt(const Value : String) : String; var CharIndex : integer; begin Result := Value; for CharIndex := 1 to Length(Value) do Result[CharIndex] := chr(not(ord(Value[CharIndex]))); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := EnDeCrypt(Edit1.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin Edit3.Text := EnDeCrypt(Edit2.Text); end;
Bookmarks