Hallo,
hiermit kann man ein IntegerWert und eine Octalzahl umwandeln.
Delphi-Quellcode:
function OctToInt(sValue: String): LongInt;
var
iFor, iRes: Integer;
begin
iRes := 0;
for iFor := 1 to Length(sValue) do
begin
// iRes := iRes * 8 +StrToInt(Copy(sValue, iFor, 1));
iRes := iRes * 8 +(Byte(sValue[iFor]) - Byte('0')); //Besserer Vorschlag von jbg
end;
Result := iRes;
end;
Und so Aufrufen:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(IntToStr(OctToInt('77')));
end;
Grüsse, Daniel
