einzelne Zeichen einem Memo hinzufügen

[Harry Knautzberg]

Hallo,

ist es möglich einem Memo einzelne Zeichen hinzu zu fügen, sodass diese dann auch wirklich wie ein Text nebeneinander stehen.

Ich habe zwei Memo Felder, in dem ersten gebe ich einen Text ein, der dann nach jedem Buchstaben (OnKeyPress) verschlüsselt auf dem Zweiten Memo Feld auftauchen soll. Memo.Lines fügt den Übergebenen String leider nur in die nächste Zeile ein.

Gruß,
Harry

[Andreas Kosch]

Hallo,

wenn jeder im TMemo eingetippte Buchstabe auch sofort (einzeln) im zweiten TMemo sichtbar sein soll, hilft <b>WM_CHAR</b> weiter:
<pre>
<b>procedure</b> TForm1.Memo1KeyPress(Sender: TObject; <b>var</b> Key: Char);
<b>begin</b>
Memo2.Perform(WM_CHAR, Ord(Key), 0);
<b>end</b>;
</pre&gt

[shadows]

Allerdings kann man dadurch meistens die Verschlüsselungs mehtode knacken. Ich würde bevorzugen den Text jedes mal komplett neu zu verschlüsseln. Mit einer Verschlüsselung, bei der sich der Gesammte Text ändert und nicht nur ein Buchstabe zusätzlich verschlüsselt wird. Ist aber natürlich eine Frage des Aufwandes und wie sicher es überhaupt sein muß