Ok, folgendes Problem: Ich habe einen String, in dem auch Steuerzeichen enthalten sind. Diese sagen, ob nun Fettgedruckt oder Unterstrichen oder normal weitergeschrieben wird. Ich fürchte, ich habe mich in einen umständlichen Lösungsweg verrannt. Folgendes: Mein String sieht irgendwie so aus:
Quelltext
1:
2:
| Das ist mein Teststring, ab #hier wird fett und ab #hier wird unterstrichen
chr(15)---^ chr(31)---^ |
Ich möchte jetzt, dass der Text so in meinen RichEdit steht:
Das ist mein Teststring, ab
hier wird fett und ab hier wird unterstrichen
Zur Zeit stehe ich da:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| FOR i := 1 TO LENGTH(memoline) DO
BEGIN
IF (ORD(memoline[i]) > 31) THEN
BEGIN
Richedit1.Text := Richedit1.Text + memoline[i];
Richedit1.SelLength := 1;
Richedit1.SelStart := Length(Richedit1.Text)-1;
Richedit1.SelAttributes.Style := currentfontstyles;
END;
IF ORD(memoline[i]) = 31 THEN currentfontstyles := [fsUnderline];
IF ORD(memoline[i]) = 15 THEN currentfontstyles := [fsBold];
END; |
memoline ist der String und currentfontstyles ist der momentane Font.Style
Wäre echt toll, wenn man mir helfen könnte
Gruss
Def
