Dual Dezimal

[MasterTobi]

hey @ all
wie kann ich eine DUAL Zahl in eine DEZIMAL zahl umwandeln?

Delphi-Quellcode:

 var a,b: Integer;
 dual: String;
begin
  dual := '';
  a:= StrToInt(edit1.Text);
  while a <> 0 do
  begin
    b:= a MOD 2; //ERST den Rest berechnen
    a:= a DIV 2; //DANN a halbieren
    dual:= IntToStr(b) + dual;
  end;
  edit2.Text := dual;
end;

das is der code für dezimal in dual
des müsst ja dann auch zurück gehen odeR?

[mkinzler]

BinToDec()

[MasterTobi]

habs grad ma in der hilfe gesucht aber da gibts nur bintohex

[inherited]

Ich kann dir nur diese Seite empfehlen:
http://www.arndt-bruenner.de/mathe/s...lensysteme.htm
Da wird auch schön erklärt wie genau man das umrechnet.

[mkinzler]

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;

[MasterTobi]

ok bin wida zu blöd zu allem :wiejetzt:
ich müsst es ja noch ausgeben in z.b. edit1.text

[mkinzler]

Delphi-Quellcode:

Edit1.Text := IntToStr( BinToDec( <Binärwert>));

[MasterTobi]

Delphi-Quellcode:

Edit1.Text := IntToStr( BinToDec( <Binärwert>));

anstatt binärwert sollte ja eig die dezizahl kommen wenn ich eig auf button1 klicke aber er sagt fehler

[DeddyH]

Lass Dir nicht alles aus der Nase ziehen. Was hast Du eingegeben und welcher Fehler kommt?

[MasterTobi]

sry

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ärwert>));

wenn ich <Binärwert> lösch sagt er fehler wenn ich ihn drin lass auch

[Fehler] Unit2.pas(74): E2029 Ausdruck erwartet, aber '<' gefunden

mach ich es weg:
[Fehler] Unit2.pas(74): E2035 Nicht genügend wirkliche Parameter

mach ich eine 0:
[Fehler] Unit2.pas(74): E2010 Inkompatible Typen: 'string' und 'Integer'

bei '0' : geht es aber er zeigt dann nur 0