Kleines Verschlüsselungs-Programm

[1234588]

Zitat:

Das mit dem ändern der "code" und "decode" procedure musst du mir noch genauer erklären.

ganz einfach. fuege folgende prozedur hinzu:

Delphi-Quellcode:

procedure strrep(const s1, s2: String; memo: TMemo);
begin
  memo.Text := StringReplace(Memo.text, s1, s2 , [rfReplaceAll]);
end;

dann kannst du dir das sparen:
form1.Memo1.text := stringreplace(form1.Memo1.text, '=', '[_0_]' , [rfReplaceAll]); denn du kannst diese zeile durch folgendes ersetzen:
  strrep('=', '[_0_]', memo1); natuerlich kannst du das nicht nur mit dieser zeile machen, sondern mit allen anderen zeilen
z.b. wird aus form1.Memo1.text := stringreplace(form1.Memo1.text, ':', '[_-_]' , [rfReplaceAll]); die weitaus kuerzere version
  strrep(':', '[_-_]', memo1); du musst nur in der strrep() prozedur deine status anzeige mit einbedenken. zumindest waere es sinnvoll.
wenn du das ganze noch mit den arrays die ich oben beschrieben hab kombinierst, wird dein quelltext um einiges kleiner und lesbarar (es verschwinden dann +300 zeilen quelltext!). außerdem hast du in deiner decode(), code(), Button3Click() und Button4Click() prozedur auch noch einen sinnfreien begin end; block

warum postest du immer ~600 zeilen quelltext wenn du doch sowieso den quelltext mit anhaengst?

[Sharky]

Zitat von Luckie:

Warum postest du hier über 600 Zeilen Quellcode?

Und machst es jetzt schon wieder?
Hänge den Quellcode bitte als Anhang an dein Posting.
Dies kannst Du machen in dem Du einfach bei deinem Beitrag auf den "EDIT-Button" klickst (innerhalb von 24 Stunden seit der Erstellen).