Letztes Leerzeichen im sichtbaren Bereich eines TEdit finden.

[braunbaer]

Hallo in die Runde.

Ich habe in Firemonkey ein TEdit
Dieses enthält mehr Text als sichtbar ist.
Ich muss nun die Position des letzten Leerzeichens im sichtbaren Bereich finden.
Ab diesem Leerzeichen schneide ich dann den Text aus und füge ihn ein weiteres TEdit ein.

Frage: wie finde ich das letzte Leerzeichen im sichtbaren Bereich eines TEdit.

Bitte um Tipps, wie ich das anstellen kann.

Schon mal danke!

Gebhard

[Jumpy]

Es gibt hier in der DP Funktionen, um festzustellen wie breit ein Text ist (ich glaube da wird mit der richtigen Schrift usw. im Hintergrund auf ein Canvas gemalt oder so). Must du mal suchen, aber keine Ahnung ob das in FM funzt.

Letztlich würde ich dann versuchen die Stelle zu finden, an dem die Länge größer wird als die Edit-Breite und von da ab Rückwärts gehen, bis du ein Leerzeichen findest.

[Der schöne Günther]

Malen muss man doch nicht, reicht nicht schon Edit1.Canvas.TextWidth(Edit1.Text); ?

[haentschman]

Moin...

Zitat:

Letztlich würde ich dann versuchen die Stelle zu finden, an dem die Länge größer wird als die Edit-Breite und von da ab Rückwärts gehen, bis du ein Leerzeichen findest.

Zitat:

Malen muss man doch nicht, reicht nicht schon Edit1.Canvas.TextWidth(Edit1.Text); ?

...wenn du die Visuellen Controls nicht als "Datenspeicher" mißbrauchst, hättest du nicht das Problem. Wenn der "Text" in der Variable / Liste lagert, könntest du mit Copy und Konsorten den entsprechenden Text extrahieren.

[Jumpy]

Zitat von haentschman:

Moin...

Zitat:

Letztlich würde ich dann versuchen die Stelle zu finden, an dem die Länge größer wird als die Edit-Breite und von da ab Rückwärts gehen, bis du ein Leerzeichen findest.

Zitat:

Malen muss man doch nicht, reicht nicht schon Edit1.Canvas.TextWidth(Edit1.Text); ?

...wenn du die Visuellen Controls nicht als "Datenspeicher" mißbrauchst, hättest du nicht das Problem. Wenn der "Text" in der Variable / Liste lagert, könntest du mit Copy und Konsorten den entsprechenden Text extrahieren.

Bin ja nicht der TE, aber wo steht, dass er das tut?
Es geht ja um die Anzeige. Es wird was in Edit1 dargestellt (egal wo das herkommt), das zu lang ist. Das soll dann an passender Stelle gekappt werden, der Rest in Edit2.

[t.roller]

http://www.delphibasics.co.uk/RTL.as...=LastDelimiter

[Uwe Raabe]

Zitat von t.roller:

http://www.delphibasics.co.uk/RTL.as...=LastDelimiter

Trifft nicht ganz (Hervorhebung von mir):

Zitat:

Frage: wie finde ich das letzte Leerzeichen im sichtbaren Bereich eines TEdit.

Außerdem bringt Delphi das mittlerweile selbst mit: System.SysUtils.LastDelimiter

[Ydobon]

Eventuell

Delphi-Quellcode:

var pos: Integer;
    r: TRect;
begin
  Edit1.Perform(EM_GETRECT, 0, @r);
  pos:=Edit1.Perform(EM_CHARFROMPOS, 0, MakelParam(r.Right, 0));

liefert den Index des letzten Zeichens im Text. Dann einfach nur noch herunter zählen.

[haentschman]

Moin...

Zitat:

Ich muss nun die Position des letzten Leerzeichens

...davon habe ich mich auch verleiten lassen.

Zitat:

im sichtbaren Bereich finden.

...das gehört da auch noch zu.

[braunbaer]

gelöst!!

konnte es mit einem temporärem TTextLayout und der Funktion PositionAtPoint() lösen.
PositionAtPoint() gibt mit dem 2ten Parameter true die Position, an der geschnitten werden muss.

Danke an alle.
Gruß
Gebhard