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?