Herzlich willkommen in der Delphi-PRAXiS, Stevens.
Hier noch eine kleine Funktion, welche die technische Notation im Bereich E-9 bis E6 von Exponentialschreibweise auf Symbolschreibweise umstellt. Ohne Prüfcode - nur zur Verdeutlichung der Vorgehensweise:
Delphi-Quellcode:
function EngUnit(s: String): String;
const
S_UNITS = 'nµm kM';
var
i, exp: Integer;
begin
i := Pos('E', s);
exp := StrToInt(Copy(s, Succ(i), 3)) div 3 + 4;
Result := Trim(Copy(s, 1, Pred(i)) + S_UNITS[exp]);
end;
Freundliche Grüße vom marabu