Umrechnen Bin-Dez / Dez-Bin ohne shr oder shl

[DeddyH]

Delphi-Quellcode:

type TFormBla = class(TForm)
...
private
  function IntToBin (Sender: TObject);
...

implementation

function TFormBla.IntToBin (Sender: TObject);
begin
  //jetzt kennt die Funktion auch Edit1 usw.
  ... 
end;

[edit] Aber so würde ich es nicht machen. Wenn Du die Funktion allgemeiner hältst, ist sie wiederverwendbar. [/edit]