AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Bei einem Text in RichEdit bestimmte Wörter formatieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bei einem Text in RichEdit bestimmte Wörter formatieren

Ein Thema von Äfan · begonnen am 12. Dez 2004 · letzter Beitrag vom 12. Dez 2004
Antwort Antwort
Seite 3 von 3     123   
Äfan
(Gast)

n/a Beiträge
 
#21

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:30
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
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#22

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:32
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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#23

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:32
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];
Julian J. Pracht
  Mit Zitat antworten Zitat
Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#24

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:38
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;
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat
Äfan
(Gast)

n/a Beiträge
 
#25

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:40
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.
  Mit Zitat antworten Zitat
Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#26

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:42


temp:=0...

lokale variablen müssen initialisiert werden
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat
Äfan
(Gast)

n/a Beiträge
 
#27

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:42
@glkgereon: So passiert garnichts ! Bzw. es hängt sich auf
  Mit Zitat antworten Zitat
Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#28

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:52
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;
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat
Äfan
(Gast)

n/a Beiträge
 
#29

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 14:57
JAAAAA *in die luft springt* Danke. Boaaa war das ne schwere geburt

thx

Äfan


Ich bin Anfänger, bitte schlagt mich nicht
  Mit Zitat antworten Zitat
Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#30

Re: Bei einem Text in RichEdit bestimmte Wörter formatieren

  Alt 12. Dez 2004, 15:06
nee, tu ich nicht, ich bin noch dabei mich selkber zu prügeln

bei den fehlern
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 3     123   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz