Also, ich möchte eine Zahl aus dem Dualen Zahlensystem (sprich Nullen und Einsen) in das Dezimale Zahlensystem umwandeln... irgendwie spuckt meine schleife aba nicht das richtige ergebnis aus
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var
dualzahl,faktor,i,dezimalzahl:Integer;
begin
dezimalzahl:=0;
faktor:=1;
dualzahl:=strtoint(edtdual.Text);
for i:=dualzahl downto 1 do
dezimalzahl:=dezimalzahl+faktor*dualzahl;
faktor:=faktor*2;
edtdezimal.text:=Inttostr(dezimalzahl);
end;
und bitte nicht auf irgendweleche einträge verweisen, die habe ich alle schon durchstöbert und die helfen mir nicht weiter...
thx
Kermit
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]