hi ich bin noch blutiger anfänger in delphi.
also ich programmiere gerade ein tool was von binär in dezimal und andersherum umwandelt.
das ganze programm funktioniert auch, nur jetzt wollte ich die algorythemn in funktionen packen
hier der quellcode
Delphi-Quellcode:
function bin2dec(input : string) : integer;
var
binlaenge: integer;
zaehler: integer;
begin
bin2dec :=0;
binlaenge :=length(input);
for zaehler :=0 to binlaenge-1 do
begin
{----->}bin2dec := bin2dec + strtoint(input[binlaenge-zaehler]) * ceil(power(2,zaehler));{<-----}
end;
end;
procedure TMain.gobuttonClick(Sender: TObject);
var input: string;
begin
input:= inputfield.text;
outputfield.Text :=inttostr(bin2dec(input));
end;
in der mit {----->} umklammerten zeile kommt folgender compiler fehler :
nicht genügend wirkliche parameter
durch auskomentieren stellte sich raus, dass er ein problem mit den 2ten bin2dec hat
hoffe mir kann jemand helfen, weil hab echt kein plan wo das problem ist.
mfg morti