Bei einem Text in RichEdit bestimmte Wörter formatieren

[fkerber]

Hi!

Dann schau mal, was Pos für Paramter erwartet --> F1


Ciao Frederic

[Äfan]

Zitat:

RichEdit1.SelStart:=pos('Scheisse');

Also ich habe herausgefunden das da nach 'Scheisse' noch was reingehört, aber ich weiß net was !? In der Delphi Hilfe steht S und S=' 125.5' Aber ich versteh nicht was das soll und was ich da reinschreiben soll.

RichEdit1.SelStart:=pos('Scheisse',NochIrgendWas);

PS: Das mit der Endlosschleife is tatsächlich, dass programm wurde paar mal komplett blockiert. und die attribute werden auch nicht gesetzt.

[fkerber]

Hi!

Da steht doch alles deutlich:

Zitat:

Returns the index value of the first character in a specified substring that occurs in a given string.

Unit

System

Category

string handling routines

Delphi syntax:

function Pos(Substr: string; S: string): Integer;

Description

In Delphi, Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.

Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.

The PosEx function is similar to Pos, but provides additional features and can be used in C++ code.

if Pos(gesuchtes_wort,text) > 0 then und dann das von oben

Ciao Frederic

[Dani]

Überleg doch mal... woher soll pos() wissen, in welchem Text nach "scheisse" gesucht werden soll

Induktiver Ansatz:
Pos('Welt', 'Hallo, Welt!') liefert 8.

[Äfan]

Gut das weiß ich inzwischen auch. Also das prog läuft, nur wenn ich auf denn button klicke hängt sich das prog auf. Hier mal der Code:

Delphi-Quellcode:

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

[nailor]

weil das ne endlosschleife gibt, weil der das erste Scheisse immer wieder findet. Wenn ersetzt wurde erst weiter hinten wieder anfangen.

[fkerber]

Hi!

Es wurde doch schon geschrieben, dass es mit while schief geht. Deswegen musst du es z.B. mit if machen (siehe meinen Post von oben)


Ciao Frederic

[glkgereon]

mann ich bin heut müde....also, nächster versuch:

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;

oder?

[Äfan]

PosEx ist Undefinierter Bezeichner.

Also ich habe es jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if pos('Scheisse',RichEdit1.Text) > 0 then
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text);
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold];
end;

Nur etwas blöd ist, das nicht Scheisse komplett blau wird sondern Scheisse und immer nur das erste Scheisse blau gemacht wird, die anderen werden ignoriert.

[fkerber]

Hi!

Ja, das mit mehr als einmal geht nur PosEx. Und wenn du mal in der OH gesucht hättest, dann hättest du gesehen, dass in der Unit StrUtils deklariert ist.

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


Ciao Frederic