Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - TMemo (https://www.delphipraxis.net/41295-tmemo.html)

Jerry

1. Mär 2005 08:30

TMemo

Hallo zusammen

Ich habe folgendes Problem:

Ich möchte in einer TMemo einen Text einlesen.

Der Text sieht z.B: so aus:

Zeile 1
Zeile 2
Zeile 3

Nun möchte ich pro Zeile die aktuelle Cursorposition auslesen, wobei jede Zeile wieder bei 1 anfangen soll.

Also wenn von Zeile 3 das "Ze" markiert ist, soll er mir den Wert 1-2 anzeigen.
1-2 wird natürlich in einem Edit-Feld angezeigt.
Ich komme auf diesen Wert, da ich alle Zeichen (Anzahl Zeichen) der ersten 2 Zeilen von SelStart abziehe.
Das Problem ist, dass mir SelStart irgendwie einen falschen Wert zurückgibt. SelStart gibt in diesem Fall 19 zurück, obwohl ich mich an 15.ter Stelle befinde...

Weiss jemand einen Tipp?

Vielen Dank!!

alcaeus

1. Mär 2005 08:38

Re: TMemo

Falsch, du befindest dich an 19. Stelle. Grund: 7 sichtbare zeichen (Zeile x) pro Zeile, plus 2 unsichtbare (LF+CR). Das macht 9 Zeichen pro Zeile und somit 19. Zeichen ;)

Greetz
alcaeus

Jerry

1. Mär 2005 08:55

Re: TMemo

danke, das mühsame ist eben, wenn ich mir pro Zeile einen Showmessage mit der Anzahl Zeichen pro Zeile mache, bringt er mir pro Zeile 7 raus...

Also müsste ich sobald ich auf einer Zeile höher 1 bin, jeweils noch pro Zeile 2 Zeichen berücksichtigen, nämlich CR und LF.

Oder sehe ich das falsch?

Grüsse

Jerry

alcaeus

1. Mär 2005 08:59

Re: TMemo

Ja, das sollte dann passen.

Greetz
alcaeus

DP-Maintenance

1. Mär 2005 09:00

DP-Maintenance

Dieses Thema wurde von "Sharky" von "Programmieren allgemein" nach "VCL-Komponenten und Controls" verschoben.
Schwupp ;-)

Jerry

1. Mär 2005 09:01

Re: TMemo

danke vielmals!! passt..

Alle Zeitangaben in WEZ +1. Es ist jetzt 17:05 Uhr.