Hallo,
ich hab mich seit einiger Zeit mit dem Verschlüsseln und Entschlüsseln von Daten beschäftigt und komme bei der Entschlüsselung einfach mit den Variablentypen nicht weiter.
Warum ist die Variable ein Typ Double und nicht String oder Integer(durch die Zuweisung der Variable)?
Ich poste im Anhang einmal den kompletten Quellcode damit die Funktionsweise verstanden werden kann und einen Screenshot der Fehlermeldung mit Fehlerstelle.
Ich bin noch neu im Bereich Programmierung, es kann sein das es ein ziemlich dummer Fehler ist, jedoch ist die Frage ernst gemeint, da ich nicht weiterkomme.
Fehlerstelle:
Code:
procedure TForm1.Button3Click(Sender: TObject);
var
zurueckZahlInt:Integer;
zurueckZahlStr:String;
zurueck:String;
//Faktor variablen
str1: String;
int1: Integer;
faktorumgewandelt:Integer;
begin
//Faktor umwandeln
str1:= Edit1.Text; //faktor auslesen
int1:= ord(str1[1]); //faktor umwandeln
faktorumgewandelt:=int1;
//ENTSCHLÜSSELN
//Datei auslesen
//Datei zuweisen
AssignFile(Verschluesselt,'C:\Users\Noah\Desktop\hallo.txt');
//Datei öffnen
ReWrite(Verschluesselt);
//Datei auslesen
ReadLn(Verschluesselt,zurueckZahlStr); //hier wird die verschlüsselte Zahl meines Wissens einem Integer zugeordnet
zurueckZahlInt:=StrToInt(zurueckZahlStr);
//verschlüsselter Text zurückführen (durch Faktor)
zurueckZahlInt:=zurueckZahlInt/faktorumgewandelt; //hier funktioniert der Typ nicht (plötzlich Double)
zurueck:=Chr(zurueckZahlInt);
end;
Vielen Dank fürs Angucken Noah!