Bei einem Text in RichEdit bestimmte Wörter formatieren

[Äfan]

Zitat:

Er macht doch das Wort ganz blau. Was gefällt dir da nicht.

Nein, alles ausser das S.

Zitat:

Und wenn du mal in der OH gesucht hättest, dann hättest du gesehen, dass in der Unit StrUtils deklariert ist.

Ähhhhh ... Ja

[fkerber]

Hi!

Aha, dann hatte ich das S übersehen. Dann mach eben beim Selstart noch ein -1 dazu.

Und was PosEx angeht: Dann binde StrUtils bei den Uses ein und dann gibt es auch keinen undefinierten Bezeichner mehr.


Ciao Frederic

[Ultimator]

Probiers mal so:

Delphi-Quellcode:

if pos('Scheisse',RichEdit1.Text) > 0 then 
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1; //-1 nicht vergessen ;-)
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold];

[glkgereon]

nein, so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1;
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
  temp:=RichEdit1.SelStart;
  end;
end;

[Äfan]

Zwei beiträge höher !

Ok Also:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text);
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
  temp:=RichEdit1.SelStart;
  end;
end;

Das programm startet, doch das Wort Scheisse wird nicht verändert.

Delphi-Quellcode:

if pos('Scheisse',RichEdit1.Text) > 0 then
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1; //-1 nicht vergessen ;-)
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold];

So gehts, aber nur das erste Scheisse.

[glkgereon]

temp:=0...

lokale variablen müssen initialisiert werden

[Äfan]

@glkgereon: So passiert garnichts ! Bzw. es hängt sich auf

[glkgereon]

so, getestet und funzt!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
temp:=0;
RichEdit1.SelStart:=0;
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
  RichEdit1.SelStart:=PosEx('Scheisse',RichEdit1.Text,temp)-1;
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
  temp:=RichEdit1.SelStart+RichEdit1.SelLength;
  end;
end;

[Äfan]

JAAAAA *in die luft springt* Danke. Boaaa war das ne schwere geburt

thx

Äfan


Ich bin Anfänger, bitte schlagt mich nicht

[glkgereon]

nee, tu ich nicht, ich bin noch dabei mich selkber zu prügeln

bei den fehlern