RichEdit Zeilen löschen

[Pseudemys Nelsoni]

hoi,

da der tittel zu lang ist und nicht passt hab ich ihn verkürzt

also meine frage...

sagen wir mal ich habe ein RichEdit .. nun möchte ich, das wenn 200 Zeilen eingefügt sind....die oberste (die erste) Zeile gelöscht wird, und immerso weiter, weiss wer wie das geht?

danke

gruss silent

[Stanlay Hanks]

Das geht so:

RichEdit1.Lines.Delete(0); Für 0 halt einfach die Zeilenzahl nullbasiert angeben.

Man liest sich, Stanlay 8)

[Pseudemys Nelsoni]

thx

ich hab das so vor(im onchange des richedits):

wenn zeilen > 200 dann lösch zeile 0

wie prüf ich obs es 200 oder mehr zeilen sind?

[Daniel B]

Hallo,

mit Lines.Count.

Grüsse, Daniel

[Stanlay Hanks]

Delphi-Quellcode:

IF RichEdit1.items.count > 200
 THEN
  RichEdit1.Lines.Delete(0);

Man liest sich, Stanlay 8)

[Christian Seehase]

Moin Silent,

statt Delete ginge es auch so:

Delphi-Quellcode:

  if RichEdit1.Lines.Count <= 200 then exit;
  RichEdit1.Lines.BeginUpdate;
  try
    RichEdit1.SelStart  := SendMessage(RichEdit1.Handle,EM_LINEINDEX,0,0);
    RichEdit1.SelLength := SendMessage(RichEdit1.Handle,EM_LINEINDEX,199,0) + length(RichEdit1.Lines[199])+2;
    RichEdit1.ClearSelection;
  finally
    RichEdit1.Lines.EndUpdate;
  end;

EM_LINEINDEX gibt die Position des ersten Zeichens der angegebenen Zeile (Parameter nach der Message, nullbasiert) zurück, deshalb wird auch für SelLength auch noch die Länge der Zeile zzgl. 2 für den Zeilenvorschub genommen.

[Stanlay Hanks]

@Christian. Warum einfach, wenns auch kompliziert geht
Aber ich find das ganz interessant. Wüsstest du da vielleicht auch was, wo man mit einem ähnlichen Befehl das letzte Zeichen einer Zeile rausfindet, in der gerade der Cursor is?

[Christian Seehase]

Moin Stanlay,

ja:

SendMessage(RichEdit1.Handle,EM_LINEINDEX,-1,0) + length(RichEdit1.Lines[RichEdit1.CaretPos.y]); statt der -1 kannst Du auch CaretPos.y benutzen, da bei dieser Message -1 "die Zeile in der sich das Caret befindet" meint.

[Stanlay Hanks]

Danke! *danktgottfürsosupermoderatoren*

Man liest sich, Stanlay 8)

[Pseudemys Nelsoni]

danke leute