Zahlenkonvertierung (Was passiert bei dieser Schleife?)

[KermitFrosch]

Delphi-Quellcode:

dezimalzahl := Dezimalzahl*2 + pos(UpperCase(dual[i]),zeichen) - 1;

kann mir jemand ganz genau erklären, was hier passiert?

[Urba]

Hallo,

Vor dieser Zeile steht wohl irgendwo

Code:

dezimalZahl := 2; //oder was anderes

Dieser Wert wird nun benutzt und verdoppelt .

Wenn du mir nun noch sagst was dual für ein Array ist und was zeichen sein soll, dann kann dir auch geholfen werden.

Urba

[himitsu]

Ich würder mal vermuten

Delphi-Quellcode:

zeichen := '01';

und dual ist einfach ein String der eine Dualzahl (Binär) enthält.


Ich vermute mal, das es ein Teil aus der dieser einen Zahlentypumwandlung ist.

... zu Dezimal: (so in etwa sah das doch aus)

Delphi-Quellcode:

zeichen := '0123456789ABCDEF';

T := 2; {2 bis 16  -  2 = Binär / 16 = Hexadezimal}
dual := '010101010';


dezimalzahl := 0;
for i := 1 to length(dual) do
  dezimalzahl := Dezimalzahl * T + pos(UpperCase(dual[i]), zeichen) - 1;

[KermitFrosch]

Oh, sorry

Delphi-Quellcode:

var
  i,Dezimalzahl : LongInt;
  sys:byte;
  dual:String;
const zeichen = '0123456789ABCDEF';
 begin
  dual:=(edtdual.Text);
  sys:=2;
  Dezimalzahl := 0;
  if sys in [2..16] then 
   begin 
    for i := 1 to length(dual) do
      dezimalzahl := Dezimalzahl*sys + pos(UpperCase(dual[i]),zeichen) - 1;
  end;
  edtdezimal.Text := IntToStr(Dezimalzahl);

[KermitFrosch]

also, der quellcode da über mir :warn: ist der ganze... und ejz würde ich gerne wissen, was hier

Delphi-Quellcode:

 dezimalzahl := Dezimalzahl*sys + pos(UpperCase(dual[i]),zeichen) - 1;

passiert

thx

der frosch :dance:

[fkerber]

Hi!

Bitte nicht nach so kurzer Zeit pushen.
Wenn jemand ne Antwort weiß, dann wird er sich melden.

Ciao fkerber

[himitsu]

Was ist denn daran so schwer zu verstehn?


Dezimalzahl*sys << schiebt einfach die Vorangegangenen Werte eine Stelle weite nach oben

pos(UpperCase(dual[i]),zeichen) - 1 << rechnet das Zeichen in eine Zahl um
'0' = 0
'1' = 1
...
'9' = 9
'A' = 10
'B' = 11
...
'F' = 15

Der Rest ist einfachste Mathematik - wie man Binär-, Oktal-, Hexadezimalwerte berechnet solltest du ja wissen :warn:


PS: Gute Antworten können auch mal 1-2... Tage dauern.

[KermitFrosch]

Vielen vielen dank!!!

Und entschuldigt bitte meine Eile :oops: , aber ich brauche diese Infos umbedingt für morgen.

also noch mal thx :o

der frosch

[sakura]

:warn: Aber ändere bitte umgehend die Überschrift in etwas Aussagekräftiges!

...:cat:...