Hallo zusammen
Ich zeig gleich mal den code.
Delphi-Quellcode:
procedure TForm1.JvButton1Click(Sender: TObject);
var email : string;
wurzel : integer;
i, j : integer;
codes : array of integer;
res : array of integer;
begin
JvEdit2.Text := '';
Setlength(codes,1);
SetLength(res,1);
email := '';
email := JvEdit1.Text;
wurzel := 163;
SetLength(codes, Length(email));
SetLength(res, Length(email));
for i := 1 to Length(email) do begin
codes[i] := ord(email[i]);
ShowMessage(IntToStr(codes[i]));
end;
for j := 1 to Length(email) do begin
res[j] := codes[j] * wurzel;
ShowMessage(IntToStr(res[j]));
JvEdit2.Text := (JvEdit2.Text + IntToStr(res[j]) + ':');
end;
end;
wie man sieht, ist es eine einfache art buchstaben zu "code"zahlen umzurechnen.
das funktioniert eigentlich auch, bis auf das problem, das immer wieder die fehlermeldung "unzulässige zeigeroption" oder so erscheint. er gibt mir das resultat zwar aus. wenn ich z.b. ins textfeld "test" eingebe, funktionierts. wenn ich das programm jetzt schliesse kommt wieder der fehler. oder wenn ich nach der eingabe von test, z.b. nur tes schreibe oder einfach was anderes, kommt der fehler auch. weiss wer woran das liegen könnte?