aso ja das hab ich auch schon probiert des geht ja.
ich hab grad nochma geschaut ich hab mich glaub net richtig ausgedrückt
also ich will in edit2.text eine dual zahl eingeben
un in edit1.text soll die dezi zahl stehen
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ärcode>));
end;
end.
anstatt <binärcode> muss ich ja irgendwie das result aus der function nehmen oder?