hey leute, ich hab noch mal ne frage
ich hab jetzt eine schleifeentwickelt, die von binär in dezimal umrechnet, aber es kommt ein falsches ergebnis raus...könnt ihr mirhelfen
hier der quelltext:
Delphi-Quellcode:
if radiobutton4.checked=true then
begin
x:=(edit1.Text);
n:=Length(x);
e:=0;
y:=n;
summe:=0;
for i:=1 to n do
begin
s1:=copy(x,y,1);
j:=StrToFloat(s1);
potenz:=power(j, e);
summe:=potenz+summe;
e:=e+1;
y:=y-1;
end;
edit2.Text:=FloatToStr(summe);
end;
end;
mfg julian.