function Decimaal(bin: String): Integer;
// converteert een binair getal in een string
// naar een geheel getal g
var
res: Integer;
binGet, eerste: String;
begin
binGet := bin;
res := 0;
while (Length(binGet) <> 0) do begin
// plaats laatste binaire cijfer van getal voor res
res := res * 2;
eerste := Copy(binGet, 1, 1);
if eerste = '1' then begin
res := res + 1;
end;
binGet := Copy(binGet, 2, Length(binGet) - 1);