brauche schnellstmöglich hilfe mit zahlensystem

[Christian Seehase]

Moin Whopper,

erste Möglichkeit:
Du tauscht die 8 durch 16, eben die Basis des Zahlensystemes,

Code:

begin
  iRes := 0;
  for iFor := 1 to Length(edit1.text) do begin
    iRes := iRes * [color=red]16[/color] +StrToInt(Copy(edit1.text, iFor, 1));
  end;
  edit2.text := inttostr(iRes);
end;

oder Du verwendest einfach die vorhandenen Funktionen:

Edit2.Text := IntToStr(StrToInt('$'+Edit1.Text));