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

[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 :wall: :wall: :wall: :wall: :wall: :wall: :wall:

Thx @ all

[mkinzler]

Zitat:

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

Nein den Inhalt des Edits

Delphi-Quellcode:

Edit1.Text := IntToStr( BinToDec( edit2.text ));