Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: xor funktioniert nicht

    Delphi
    by jfheins, 4. Mai 2009
  Probiers mal so:
  
  function xorfunktion (text: Char;key:char): char;
  begin
  Result := Char(Ord(text) xor Ord(key));
  // Nur 2 Chars miteinander xoren ! ord(string) sollte sowiso eine Fehlermeldung bringen!
  end;
  
  procedure TForm2.Button1Click(Sender: TObject);
  var