Buchstaben tauschen in einer Memo-Komponente

[Plague]

Hallo,

ich möchte in meinem Prog. zwei Memo-Komponenten erstellen. In Memo1 soll ein richtiger Text eingegeben werden. Mit dem Klick auf einen Button sollen von jedem Wort in Memo1 sowohl der erste als auch der letzte Wuchstabe beibehalten werden, die Buchstaben dazwischen sollen getauscht werden (am besten per Zufall). Der gesamte neu "codierte" Text soll dann in Memo2 ausgegeben werden...
Weiß jemand wie ich das anstelle?

Danke
Thomas

[johny]

Wahrscheinlich, um zu zeigen, dass der Text genau so gut lesbar ist?

Gar nicht so einfach. Ich würde jedes Wort (Blank als Trennzeichen; Arrayröße: [0..n] n = chars pro Wort) in ein dynamisches Array speichern, die Stelle 1 bis n-1 mit Hilfe von 'randomize' tauschen und in ein neues Array schreiben. Dieses kann dann ausgegeben werden. Hab aber schon lange nicht mehr Pascal programmiert. Wie genau du das realisieren könntest, kann ich dir deshalb leider nicht aus dem Stehgreif sagen.

[fkerber]

Hi!

Dazu hat mal jemand (oder sogar 2 Leute) ein Prog geschrieben, als diese "entdeckung" gemacht wurde. Such mal hier im Forum danach.
Weiß aber nicht mehr genau unter was.

Ciao fkerber

[Plague]

Ich habe jetzt eine Idee...
Gibt es einen Befehl, der mir die Anzahl der Wörter, die durch ein Leerzeichen getrennt werden zurück gibt? Wie zum beispiel der Lines.count Befehl???