Fórum Transformar Texto em Binario #313097

function IntToBin(B: Byte): string;

type
  TCrypt = class
  private
    FLineData: String;
    FLineBinary: String;
    procedure SetLineData(const Value: String);
  public
    procedure Execute;
    property LineData: String read FLineData write SetLineData;
    property LineBinary: String read FLineBinary;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TCrypt }

procedure TCrypt.Execute;
var I, N: SmallInt;
begin
  N := Length(FLineData);
  for I := 1 to N do
  begin
    FLineBinary := FLineBinary + IntToBin(Ord(FLineData[I]));
  end;
end;

procedure TCrypt.SetLineData(const Value: String);
begin
  FLineData   := Value;
end;

procedure TForm1.btnCryptClick(Sender: TObject);
var Crypt: TCrypt;
begin
  Crypt   := TCrypt.Create;
  Crypt.LineData    := ´Aroldo Zanela´;
  Crypt.Execute;

  mmo1.Lines.Add(Crypt.LineBinary);
  Crypt.Free;
end;

function IntToBin(B: Byte): string;
var
  I: Integer;
begin
  Result := ´´;
  for I := 0 to 7 do
  begin
    if Odd(B) then
      Result := ´1´ + Result
    else
      Result := ´0´ + Result;
    B := B shr 1;
  end;
end;