Richedit Lines ( gelöst )

[Deadinpac]

Moin,

So ich habe lange gesucht aber nicht gefunden (Wahrscheinlich wieder falsche suchbegriffe)

ich habe 2 Fragen

1.Wenn ich ein Text einfügen will in ein Richedit wie bekomme ich den text an der CursorPosition oder eher gesagt am ende der Zeile z.b Zeile 1 Hallo ich bin ein Fetter text ich bekomme es immer nur hin das es so ausieht
Zeile 1 Hallo ich bin ein
Zeile 2 Fetter Text
Zeile 3

2.wie kann ich in ein Richedit nach zeilenümbruchen suchen Wenn ich was schreibe z.b

Zeile 1 Hallo ich bin ein
Zeile 2
Zeile 3 Test

und das dann als html dokument speicher schreibt er ja immer so

Hallo ich bin ein Test

und nicht so

Hallo ich bin ein

Test

er müsste bei leere Zeilen und bei Zeilenumbrüche einfach ein

oder
hinten dran hängen

Ich hoffe ihr versteht die Fragen

MFG
Sven

[fkerber]

Hi!

Frage 1 versteh ich nicht aber zu Frage 2:
Einfach alle #13#10 durch
ersetzen. Such mal nach Stringreplace.


Ciao Frederic

[Deadinpac]

Danke fkerber

Guck mal ob das klappt mit Stringreplace arbeite ich schon

und zu frage 1 meine ich das so wenn ich auf den Button klicke soll er den Text [b] oder [Quote]

an der Stelle einfügen wo der User am schreiben ist und nicht erst in der Nächsten zeile hab schon alles Probiert wo ich meine das man damit was machen kann d.h Richedit1.lines.add('[b]'); , Richedit.lines.text '[B]'; u.s.w

MFG
Sven

[Nightshade]

Guck dir mal SelStart, SelLength, SelText, und SelAttributs an.

Und zum "
" einfügen :

Delphi-Quellcode:

for t := 0 to pred(Richedit.Lines.Count) do 
  Richedit.Lines[t] := Richedit.Lines[t] + '
';

[Deadinpac]

Moin,

Ja ich hab gerade schon was auf Delphi-Source gefunden

Delphi-Quellcode:

TntRichEdit1.SelLength:=0;
TntRichEdit1.SelText:='Text';

Und der Code von fkerber hat auch geklappt

Delphi-Quellcode:

Form3.Memo1.Text := StringReplace(Form3.Memo1.Text,#13#10,'
',[rfReplaceAll,rfIgnoreCase]);

trozdem danke an Alle

MFG
Sven