RichEdit: Zeilen und Zeichen pro Zeile begrenzen

[Reinhardtinho]

Hallo,

danke für die schnelle Antwort.

Ich habe das ganze jetzt etwas überarbeitet, aber der Cursor springt immer an die erste Stelle im Memo und ich weiss nicht warum.

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
var
  sText     : String;
  i         : Integer;
  NewText   : String;
  Line      : Integer;
begin
  sText   := Memo1.Text;

  if CanChange then
    Line := Memo1.CaretPos.Y;

  NewText := '';

  sText := StringReplace(sText, #13, '', [rfReplaceAll]);
  sText := StringReplace(sText, #10, '', [rfReplaceAll]);

  for i := 1 to Length(sText) do
  begin
    if ((i Mod 10) = 0) then
      NewText := NewText + sText[i] + #13#10
    else NewText := NewText + sText[i];
  end; (* of for *)

  if CanChange then
  begin
    CanChange  := False;
    Memo1.Text := NewText;

    //Cursorposition neu setzen
    Memo1.SelStart := Perform(EM_LINEINDEX, Line, 0) ;
  end;

  CanChange := True;
end;

Zur Liste:
Es soll halt ganz normaler Text eingegeben werden, wie in Word z.B. wenn ich mich da mitten im Text positioniere, rutscht der Rest einfach weiter und es ist möglich was aus der Zwischenablage einzufügen.
Daher finde ich es mit der Liste nicht ganz so schön, wobei mich das langsam nervt, das man nicht einfach die maximale Zeichenanzahl pro Zeile einstellen kann .