1:
2:
3:

 richedit1.selattributes.color:= clred;
 richedit1.selattributes.style:= [fsbold];
 richedit1.selText:= 'Dieser Text wird rot und fett dargestellt';					

1:
2:

 richedit1.selattributes.color:= clred;
 richedit1.selattributes.style:= [fsbold];					

1:
2:

RichEdit1.SelStart := Pos('Tiefkühlpizza', RichEdit1.Text) - 1;
RichEdit1.SelLength := Length('Tiefkühlpizza');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:

unit hauptprogramm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Spin, StrUtils;

type RSyntax = record
      Begriff: String;
      Farbe: TColor;
      Style: TFontStyles;
end;

type
  TForm1 = class(TForm)
    databox: TRichEdit;
    Label1: TLabel;
    such_text: TEdit;
    GroupBox1: TGroupBox;
    schrift_farbe: TColorBox;
    Label2: TLabel;
    Label3: TLabel;
    schrift_size: TSpinEdit;
    check_fett: TCheckBox;
    check_kursiv: TCheckBox;
    check_unterstrichen: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    function durchsuche(Suchbegriff: String; Textbaustein: TRichEdit; Offset: integer): integer;
    function doSyntax(Syntax: array of RSyntax; RichEdit: TRichEdit): Boolean;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    tempoffset: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  mySyntax: array of RSyntax;

implementation

{$R *.dfm}

function TForm1.doSyntax(Syntax: array of RSyntax; RichEdit: TRichEdit): Boolean;
{
  Funktion geht Syntax-Record durch und weist allen Funden die definierten Werte zu
}
var position: integer;
    i: integer;
begin;

 for i:= low(Syntax) to high(Syntax) do
 begin
  REPEAT
   position:= durchsuche(Syntax[i].Begriff, richedit, tempoffset);
   if position > 0  then
   begin
    RichEdit.SelStart:= position-1;
    RichEdit.SelLength:= length(Syntax[i].Begriff);
    RichEdit.SelAttributes.Color:= Syntax[i].Farbe;
    RichEdit.SelAttributes.Style:= Syntax[i].Style;
   end;
  UNTIL (position = 0);
 end;
 
end;

function TForm1.durchsuche(suchbegriff: string; Textbaustein: TRichEdit; Offset: Integer): Integer;
{
  Funktion durchsucht übergeben Text (Richedit) nach Vorkommen des Suchbegriffs
}
begin;
 tempoffset:= PosEx(suchbegriff, Textbaustein.text, offset+1);
 durchsuche:= tempoffset;
end;

procedure TForm1.Button1Click(Sender: TObject);
var posmerker: integer;
    Stil: TFontStyles; //Schritstyles zusammenfassen
begin
 //INIT
 posmerker:= 0;

 //Keine Schriftstyles
 Stil:= [];

 //Text suchen

 posmerker:= pos(such_text.Text, databox.text);
 if posmerker > 0 then
 begin
  //Textanfang setzen
  databox.SelStart:= posmerker-1;

  //Länge setzen (im Prinzip entspricht das dem Markieren);
  databox.SelLength:= length(such_text.text);

  //Und die Attribute darauf anwenden;

  //Schriftfarbe
  databox.SelAttributes.Color:= schrift_farbe.Selected;

  //Schriftgröße
  databox.SelAttributes.Size:= schrift_size.Value;

  //fett, kursiv und unterstrichen
  if check_fett.checked = true then
   Stil:= Stil + [fsbold];

  if check_kursiv.Checked = true then
   Stil:= Stil + [fsitalic];

  if check_unterstrichen.checked = true then
   Stil:= Stil + [fsunderline];

  //Schriftstyle zuweisen
  databox.SelAttributes.Style:= Stil;

  //Und Cursorpos hinter Text setzen
  databox.SelStart:= databox.SelStart + databox.SelLength;
 end
 else
  messagebox(application.handle, 'Textpassage wurde nicht gefunden', 'Kein Treffer', MB_IconWARNING);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 setlength(mySyntax, 2);

 mySyntax[0].Begriff:= 'Demo';
 mySyntax[0].Farbe:= clred;
 mySyntax[0].Style:= [fsbold];

 mySyntax[1].Begriff:= 'die';
 mySyntax[1].Farbe:= clgreen;
 mySyntax[1].Style:= [fsitalic];

 //Syntaxhighlighting aufrufen
 doSyntax(mySyntax, databox);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

<Nasse>
ich schreib dich in den nächsten tagen mal an und frag ich über physik aus
<Nasse>
hab aber kjetz keine lust mehr
<SweeT_C>
-.-
<Nasse>
*JOKINGLY*
<Nasse>
wäste mal früher gekommen
<SweeT_C>
dann ?					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.Button8Click(Sender: TObject);
var s, name1, name2:string;
var pp, ll, i, o:integer;
var hallo:array of integer;
begin
  name1:='<'+edit3.text+'>';
  name2:='<'+edit4.text+'>';
  s:=richedit2.text;
  i:=0;
  Setlength(hallo, 0);
begin
  while Pos(name1, s)<>0 do
    Setlength(hallo,i+2);
    o:=i+1;
    hallo[i]:=Pos(name1, s);
    hallo[o]:=Length(name1);
    Delete(s, pp, ll);
    i:=i+2;
end;
  showmessage('completed');




end;