Wörter in Zeichenstring fett schreiben

[DeddyH]

Was verstehst Du denn nicht? Der Code ist doch sogar kommentiert.

[t0mmy]

Okay.. mittlerweile.. check ichs ein bisschen... jedoch schreit der compiler beim kompilieren:

2mal Inkompatible Typen: 'TSearchType' und 'TRichSearchType'
&1mal: Inkompatible Typen: 'TRichSearchTypes' und 'TSearchTypes'

Ich muss mich ausbessern ich verwende kein TRichEdit Steuerelement sondern ein TJvRichEdit.. da es möglich is in diesem Bilder einzufügen.
Aber ich glaube das macht kein unterschied beim TFindDialog - Element

[t0mmy]

Warum kann mir keiner Helfen??? -.-

[DeddyH]

Nun schrei hier mal nicht rum. Zum Einen brauchst Du ja keinen FindDialog, zum Anderen musst Du halt mal schauen, wie die Typen beim JvRichEdit deklariert sind und das dann entsprechend umdeklarieren.

[Bjoerk]

uses
StrUtils;

[Bjoerk]

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?

Delphi-Quellcode:

procedure DoColorWork (ARichEdit: TRichEdit; const S: string);
var
  I, X, L: integer;
  F: boolean;
begin
  ARichEdit.Lines.BeginUpDate;
  L:= Length(S);
  X:= 1;
  F:= true;
  while F do
  begin
    X:= PosEx(S, ARichEdit.Text, X);
    if X <> 0 then
    begin
      with ARichEdit do
      begin
        SelStart:= X-1;
        SelLength:= L;
        SelAttributes.Color:= clNavy;
        SelAttributes.Style:= [fsBold];
        SelAttributes.Name:= Font.Name;
        SelAttributes.Size:= Font.Size;
      end;
      Inc(X, L);
    end
    else
      F:= false;
  end;
  ARichEdit.SelLength:= 0;
  ARichEdit.Lines.EndUpDate;
end;

[t0mmy]

Hallo Bjoerk!

Beim kompilieren von:

 DoColorWork (RichEdit1, 'Höhe:'); Hab den Fehler gefunden RichEdit1 --> JvRichEdit1 -.-

[t0mmy]

Das Programm lässt sich ausführen, jedoch schreibt er was anderes fett -.-


Mit
zeichenkette1 := StringReplace(zeichenkette1, 'Höhe:', 'HÖHE:', [rfIgnoreCase]); kann ich die Höhe: --> groß schreiben.. wie geht das mit fett schreiben???

[Bjoerk]

Zitat von t0mmy:

Das Programm lässt sich ausführen, jedoch schreibt er was anderes fett -.-
kann ich die Höhe: --> groß schreiben.. wie geht das mit fett schreiben???

Oh mann, weil der Text HÖHE nicht enthält (PosEx ist CaseSensitive).

Eventuell so:

Delphi-Quellcode:

  RE: string;
begin
  RE:= AnsiLowercase(ARichEdit.Text);

  ..
  
  X:= PosEx(AnsiLowercase(S), RE, X);

[t0mmy]

@Bojerk

Es wird immer das Falsche fett markiert -.-