da du der Power-Funktion nur ganzzahlen übergibst steht somit auch fest das nur ganzzahlen zurück gegeben werden. Du kannst also einfach den Nachkommateil der von Power zurück gegeben wird abschneiden (weil der ja wegen der ganzzzahlen nicht vorhanden ist)
Delphi-Quellcode:
var i : integer;
ver :
string;
tmp,
tmp2: Cardinal;
begin
for i:=1
to Length(unver)
do
begin
tmp := ord(unver[i]);
//ASCII Wert ermitteln
tmp2 := Trunc(power(tmp,7))
mod 143;
result :=floattostr(tmp2);
end;
im übrigen macht die zeile
result:=floattostr(tmp2);
keinen sinn da beim nächsten schleifendurchlauf das ganze überschrieben wird (ist aber vermutlich nur für Testzwecke so). Und floattostr ist auch nicht mehr notwendig (würde jetzt inttostr werden) da es kein float mehr ist.