thx, dass ist ja sehr gut... doch jez erblicke ich meinen fehler nicht...
Delphi-Quellcode:
procedure TForm1.btnoctalClick(Sender: TObject);
function xToDec(octal: string; sys: byte): integer;
var
i: integer;
const
ch = '0123456789ABCDEF';
begin
octal:=(edtoctal.Text);
sys:=8;
result := 0;
if sys in [2..16] then
begin
for i := 1 to length(octal) do
result := result*sys + pos(upCase(octal),ch) - 1;
end;
end;
end;
bei der rot markierten stelle, gibt er n fehler aus mit inkom. typen, aba warum?