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