Hey Leute ich wollte mir eine eigene, kleine Verschlüsslung von Datein schreiben.
Ich habe bis jetzt das:
Delphi-Quellcode:
for i := 0 to Memo1.Lines.Count -1 do
begin
Edit2.text:=Memo1.lines[i];
j:=length(Edit2.text);
For h := 1 to j do
If Edit2.text[h]='A' Then Edit2.text[h]:='B' Else
If Edit2.text[h]='B' Then Edit2.text[h]:='C' Else
If Edit2.text[h]='C' Then Edit2.text[h]:='D' Else
If Edit2.text[h]='D' Then Edit2.text[h]:='E' Else
If Edit2.text[h]='E' Then Edit2.text[h]:='F' Else
If Edit2.text[h]='F' Then Edit2.text[h]:='G' Else
If Edit2.text[h]='G' Then Edit2.text[h]:='H' Else
If Edit2.text[h]='H' Then Edit2.text[h]:='I' Else
If Edit2.text[h]='I' Then Edit2.text[h]:='J' Else
If Edit2.text[h]='J' Then Edit2.text[h]:='K' Else
If Edit2.text[h]='K' Then Edit2.text[h]:='L' Else
If Edit2.text[h]='L' Then Edit2.text[h]:='M' Else
If Edit2.text[h]='M' Then Edit2.text[h]:='N' Else
If Edit2.text[h]='N' Then Edit2.text[h]:='O' Else
If Edit2.text[h]='O' Then Edit2.text[h]:='P' Else
If Edit2.text[h]='P' Then Edit2.text[h]:='Q' Else
If Edit2.text[h]='Q' Then Edit2.text[h]:='R' Else
If Edit2.text[h]='R' Then Edit2.text[h]:='S' Else
If Edit2.text[h]='S' Then Edit2.text[h]:='T' Else
If Edit2.text[h]='T' Then Edit2.text[h]:='U' Else
If Edit2.text[h]='U' Then Edit2.text[h]:='V' Else
If Edit2.text[h]='V' Then Edit2.text[h]:='W' Else
If Edit2.text[h]='W' Then Edit2.text[h]:='X' Else
If Edit2.text[h]='X' Then Edit2.text[h]:='Y' Else
If Edit2.text[h]='Y' Then Edit2.text[h]:='Z' Else
If Edit2.text[h]='Z' Then Edit2.text[h]:='A' Else
If Edit2.text[h]='a' Then Edit2.text[h]:='b' Else
If Edit2.text[h]='b' Then Edit2.text[h]:='c' Else
If Edit2.text[h]='c' Then Edit2.text[h]:='d' Else
If Edit2.text[h]='d' Then Edit2.text[h]:='e' Else
If Edit2.text[h]='e' Then Edit2.text[h]:='f' Else
If Edit2.text[h]='f' Then Edit2.text[h]:='g' Else
If Edit2.text[h]='g' Then Edit2.text[h]:='h' Else
If Edit2.text[h]='h' Then Edit2.text[h]:='i' Else
If Edit2.text[h]='i' Then Edit2.text[h]:='j' Else
If Edit2.text[h]='j' Then Edit2.text[h]:='k' Else
If Edit2.text[h]='k' Then Edit2.text[h]:='l' Else
If Edit2.text[h]='l' Then Edit2.text[h]:='m' Else
If Edit2.text[h]='m' Then Edit2.text[h]:='n' Else
If Edit2.text[h]='n' Then Edit2.text[h]:='o' Else
If Edit2.text[h]='o' Then Edit2.text[h]:='p' Else
If Edit2.text[h]='p' Then Edit2.text[h]:='q' Else
If Edit2.text[h]='q' Then Edit2.text[h]:='r' Else
If Edit2.text[h]='r' Then Edit2.text[h]:='s' Else
If Edit2.text[h]='s' Then Edit2.text[h]:='t' Else
If Edit2.text[h]='t' Then Edit2.text[h]:='u' Else
If Edit2.text[h]='u' Then Edit2.text[h]:='v' Else
If Edit2.text[h]='v' Then Edit2.text[h]:='w' Else
If Edit2.text[h]='w' Then Edit2.text[h]:='x' Else
If Edit2.text[h]='x' Then Edit2.text[h]:='y' Else
If Edit2.text[h]='y' Then Edit2.text[h]:='z' Else
If Edit2.text[h]='z' Then Edit2.text[h]:='a';
Mir sagt Delphi "[Fehler] Unit1.pas(73): Der linken Seite kann nichts zugewiesen werden" aber wieso ?