Extended und char - Problem

[Tyrael Y.]

Delphi-Quellcode:

function TRSA.verschluessle(wort:string):string; 
 var laenge,j,C:integer; 
 var ausgabe:string; 
begin 
 laenge:=length(wort); 
 ausgabe:= ''; 
 
 for j:=0 to laenge-1 do 
 begin  
  C:=floor(power((ord(wort[j])),e)) mod N; 
  ausgabe:=ausgabe+ inttostr(C); 
 end; 
 
 result:=ausgabe; 
end;

das sieht ja auhc ok aus auf dem ersten Blick
nur in deinem letzten Posting stand

for i=0 to (i-1) do und hierbei würde die Schleife nie benutzt werden