alter fehler aber immer wieder vorkommender fehler!
Dynamische arrays beginnen bei 0 und gehen bis Anzahl-1 !!!
hier...
Delphi-Quellcode:
procedure TForm1.JvButton1Click(Sender: TObject);
var email : string;
wurzel : integer;
i : integer;
codes : array of integer;
res : array of integer;
anzahl:integer;
anzeige:string;
begin
anzeige:='';
email := JvEdit1.Text;
wurzel := 163;
anzahl :=Length(email);
SetLength(codes, anzahl);
SetLength(res, anzahl);
for i := 0 to anzahl-1 do
begin
codes[i] := ord(email[i+1]);
res[i] := codes[i] * wurzel;
anzeige:= anzeige + IntToStr(res[i]) + ':';
end;
JvEdit2.Text := anzeige;
end;