Wie wäre es, wenn du die einzelnen Umwandlungen in einzelne Routinen packst?
Sinnvoll wäre auch eine Gliederung in 2 Schritte:
1. Umwandlung des BIN/
DEC/HEX-Strings in einen Integer (Int64)
2. Umwandlung des Integer in die gewünschte Ausgabeform
Delphi-Quellcode:
case EingabeSystem of
2: Zahl := BinToInt(Eingabe);
8: Zahl := OctToInt(Eingabe);
10: Zahl := DecToInt(Eingabe);
16: Zahl := HexToInt(Eingabe);
end;
case AusgabeSystem of
2: Ausgabe := IntToBin(Zahl);
8: Ausgabe := IntToOct(Zahl);
10: Ausgabe := IntToDec(Zahl);
16: Ausgabe := IntToHex(Zahl);
end;
StringUeberpruefenHex solltest du übrigens so anwenden:
s := StringUeberpruefenHex(s);