Zeilen in Memo abarbeiten

[XXcD]

Moin moin,
ich bin jetzt schon lange am Suchen und hab nichts gefunden.
Ich möchte in einer For Schleife ein Memo Zeile für Zeile abarbeiten.
Wie kann ich das machen dass z.b. bei Showmessage. Erst Zeile 1 ausgeben und dann 2,3,4...

[Van HelF]

Delphi-Quellcode:

for i:=0 to memo1.lines.count-1 do
  Showmessage(memo1.lines.strings[i]);

[XXcD]

aso , ja danke dann muss ich mir das mal merken :-D

[XXcD]

Kann man auch irgendwie direkt in dem Memo die Zeichen pro Zeile beschränken?? Ich kann bei google irgendwie nichts finden.

[quendolineDD]

Ich glaub maximale Länge einer Zeile betrug die Länge eines Strings = 255(256) Zeichen.
Mit MaxLength kannst du die maximale Zeichenlänge des im Memo befindlichen Textes einstellen.

[Van HelF]

Nicht direkt, du kannst aber per length die länge der zeile z.b. im onChange event auslesen und weitere eingaben blockieren.

[quendolineDD]

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
const laenge = 10;
begin
if (Sender is TMemo) then
    if length(Memo1.Lines[0]) >= laenge then
        Memo1.Lines[0]:= Memo1.Lines[0] + #13#10
end;

Ich frag mich halt eben nur, wie man auf die aktuelle Zeile, in der geschrieben wird, kommt ...

[XXcD]

Ja das Problem habe ich im moment auch. Ich habe if länge größer als 69 dann #13#10. Aber dann ist ja klar der machte nach der erste zeile nen Zeilenumsprung. Aber dann auch direkt nach jeder eingabe.

[Matze]

Hallo,

das könnt ihr beispielsweise so lösen:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  with Memo1 do
  begin
    if Length(Lines[CaretPos.Y]) >= 69 then
      Lines[CaretPos.Y] :=  Lines[CaretPos.Y] + #13#10;
  end;
end;

Memo.CaretPos.Y bzw. Memo.CaretPos.X beinhaltet die aktuelle Zeile/Spalte.