Einzelnen Beitrag anzeigen

morti

Registriert seit: 12. Mär 2007
11 Beiträge
 
Delphi 6 Personal
 
#1

hilfe bei parameterübergabe

  Alt 22. Mär 2007, 22:01
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
  Mit Zitat antworten Zitat