Rekursiv function

[speedy23]

Delphi-Quellcode:

implementation
function ZweiHoch(n:integer):real;
var i:integer;
    p:real;

begin
   if n=0 then Zweihoch:=1
   else Zweihoch:=2*Zweihoch(n-1);

end;
function bindual(s:string):integer;
begin
if length(s)=0 then bindual:=0 else
if s[1]='1' then
bindual:=zweihoch(length(s))+bindual(copy(s,2,length(s)-1)) else
bindual:=bindual(copy(s,2,length(s)-1));
end;

integer und extendet sind inkompatibel. d.h. ich kann nich kompilieren...warum??
PS das soll ne binärzahl in ne dezimalzahl rekursiv umwandeln

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]