Dual Dezimal

[Reinhardtinho]

<Binärwert> ist hier doch nur ein Platzhalter, du musst natürlich den richtigen Binärwert als String übergeben.
ZB.'101010101010'.

[MasterTobi]

meinst du das so

Delphi-Quellcode:

 var s:string;
begin
s:=inttostr (BinToDec (int64));

[Reinhardtinho]

Eigentlich so:

Delphi-Quellcode:

var s:string;
begin
  s := IntToStr(BinToDec ('101010101010'));
end;

[MasterTobi]

aso ja das hab ich auch schon probiert des geht ja.

ich hab grad nochma geschaut ich hab mich glaub net richtig ausgedrückt

also ich will in edit2.text eine dual zahl eingeben
un in edit1.text soll die dezi zahl stehen

Delphi-Quellcode:

function BinToDec(s:string):int64;
var p:int64;
    i:integer;
begin
p:=0;
for i:=1 to length(s) do
   p:=p*2+ord(s[i])-ord('0');//s[i] must be '0' or '1'
result:=p;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text := IntToStr( BinToDec (<binärcode>));
 end;
end.

anstatt <binärcode> muss ich ja irgendwie das result aus der function nehmen oder?

[Die Muhkuh]

Delphi-Quellcode:

function BinToDec(s:string):int64;
var p:int64;
    i:integer;
begin
p:=0;
for i:=1 to length(s) do
   p:=p*2+ord(s[i])-ord('0');//s[i] must be '0' or '1'
result:=p;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text := IntToStr( BinToDec (Edit2.Text));
end;
end.

[MasterTobi]

boah bin ich blöd

Thx @ all

[mkinzler]

Zitat:

anstatt <binärcode> muss ich ja irgendwie das result aus der function nehmen oder?

Nein den Inhalt des Edits
Edit1.Text := IntToStr( BinToDec( edit2.text ));