Hjælppppp!!!!!!!!!!!!

her er i hvertfalt en procedure der kan omdanne en Integer til  et bunært tal :

function IntegerToBinString(BinValue : integer) : string;
var
  i : integer;
begin
  result := \'\';
  for i := 31 downto 0 do
    if (BinValue and (1 shl i)) <> 0 then
      result := result + \'1\'
    else
      result := result + \'0\';
end;


Jens B

Kan du ikke lave en der konverterer tilbage igen fra Bunært --> Integer

*S*

Dec til Bin:

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
  Result:=\'\';
  for i:=Size downto 0 do
  begin
    if Value and (1 shl i)<>0 then
      Result:=Result+\'1\';
    else
      Result:=Result+\'0\';
  end;
end;



Bin til Dec:

function BinToInt(Value: String): LongInt;
var
  i,Size: Integer;
begin
  Result:=0;
  Size:=Length(Value);
  for i:=Size downto 0 do
  begin
    if Copy(Value,i,1)=\'1\' then
      Result:=Result+(1 shl i);
  end;
end;


Snowball

hvordan ,og hvor skal koden smides hen

Og selvfølgelig kom borrisholt først ;)

Snowball

snowball >> ja, hvad havde du forventet, den mand bor på nettet *gg*

Et meget hurtigt eksempel:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
  Result:=\'\';
  for i:=Size downto 0 do
  begin
    if Value and (1 shl i)<>0 then
      Result:=Result+\'1\'
    else
      Result:=Result+\'0\';
  end;
end;

function BinToInt(Value: String): LongInt;
var
  i,Size: Integer;
begin
  Result:=0;
  Size:=Length(Value);
  for i:=Size downto 0 do
  begin
    if Copy(Value,i,1)=\'1\' then
      Result:=Result+(1 shl i);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.caption := InttoBin(StrToInt(edit1.text),length(edit1.text));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label2.caption := IntToStr(BintoInt(edit2.text));
end;

end.


Men jeg synes ikke den regner helt rigtigt; ifølge lommeregneren i Windows i hvert fald !

Snowball