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?