Wörter bei Großbuchstaben trennen

[jaenicke]

Du kannst einfach alle Großbuchstaben im Text durch einen Großbuchstaben mit vorgestelltem Zeilenumbruch ersetzen :

Delphi-Quellcode:

var
  tmp: String;
  i: Integer;
begin
  tmp := Memo1.Text;
  for i := Ord('A') to Ord('Z') do
    tmp := StringReplace(tmp, Chr(i), #13#10 + Chr(i), [rfReplaceAll]);
  Memo2.Text := Trim(tmp);