Forum: Programmieren allgemein
by Bjoerk,
14. Jul 2011
Alternative:
procedure DoColorWork (ARichEdit: TWasAuchImmerFuerEinRichEdit; const S: string);
var
I, X, L: integer;
F: boolean;
begin
ARichEdit.Text:= StringReplace(AnsiLowerCase(ARichEdit.Text), AnsiLowerCase(S), S, );
ARichEdit.Lines.BeginUpDate;
Forum: Programmieren allgemein
by Bjoerk,
14. Jul 2011
Nochmal zum mitschreiben:
procedure DoColorWork (ARichEdit: TWasAuchImmerFuerEinRichEdit; const S: string);
var
I, X, L: integer;
F: boolean;
RE: string;
begin
RE:= AnsiLowerCase(ARichEdit.Tex); // !!
Forum: Programmieren allgemein
by Bjoerk,
14. Jul 2011
Alle Wörter im Text?
Dann wird's noch einfacher. Dann lauft x ab 1. ggf. TRichEdit in der Übergabe ändern.
DeddyH, was daran jetzt kompliziert? :shock:
procedure DoColorWork (ARichEdit: TRichEdit; const S: string);
var
I, X, L: integer;
F: boolean;
Forum: Programmieren allgemein
by Bjoerk,
13. Jul 2011
Ich habe TE so verstanden, daß er in einer bestimmten Zeile etwas ändern will, nicht im ganzen Text. Dafür ist die Zeilennummer o.ä. erforderlich. Hast Du eine bessere Idee? Dann poste sie. Der Code setzt RichEdit.WordWrap:= false voraus, da hast du recht.
Forum: Programmieren allgemein
by Bjoerk,
13. Jul 2011
Jo, is ne Sch..arbeit. Hat mich auch mal ein paar Tage gekostet.
procedure DoColorWork (ARichEdit: TRichEdit; const ARow: integer; const S: string; const fAlle: boolean);
var
I, X, L, X1, X2: integer;
F: boolean;
begin
X1:= 0;
X2:= 0;