Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
16. Sep 2009
S := Copy(Memo1.Text, 1, Memo1.SelStart);
Line := 0;
for i := 1 to Length(S) do
if S = #10 then Inc(Line);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
15. Sep 2009
Im Notfall ab Memo1.SelStart rückwärts die Zeilenumbrüche zählen:
- entweder direkt in Memo1.Text nach #13 und #10 ausschauhalten und diese entsprechend bis Position SelStart zählen
- oder
i2 := Memo1.SelStart;
i := 0;
While (i < Memo1.Lines.Count) and (i2 >= Length(Memo1.Lines) + Length(sLineBreak)) do
Inc(i);
falls ich jetzt gut geraten hab, dürfte nun in i die Zeile stehen