Wörter in Zeichenstring fett schreiben

[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???

[DeddyH]

Hat sich eigentlich einer von Euch beiden mal FindText angeschaut, speziell die Optionen, die da geboten werden? Falls ja, wieso friemelt Ihr dann mit PosEx herum? Ich kann mein Auto auch schieben, dann bewegt es sich auch, nur ist das zum Einen im Allgemeinen langsamer als wenn ich fahren würde, zum Anderen ist das Fahren doch unbestreitbar bequemer. Aber es ist ja nicht mein Programm. Übrigens:

Zitat:

Use FindText rather than programmatically searching through the text of the control, to keep from being thrown off by the encoding of rich text characteristics.

[edit] Fett schreiben: gefunden Text markieren (SelStart, SelLength) und SelAttributes setzen.
DeinRichEdit.SelAttributes.Style := DeinRichEdit.SelAttributes.Style + [fsBold]; [/edit]

[t0mmy]

Ich schau mir diesen Befehle (FindText) eine Zeit lang an.. aber ich hab mittlerweile überhaupst keine Ahnung wie ich ihm angeben soll das wenn er Höhe im TJvRichEdit findet es fettt schreiben soll.. jaa okay...

JvRichEdit1.FindText('Höhe:', 1, ??????? Weiss nicht mal was ich da eintragen soll

und dass was ich noch weiss ist das mit JvRichEdit1.SelAttributes.Style := [fsBold]

sonnst hab ich keine Ahnung und ich weiss nicht mehr was ich tun soll.. probier nur die ganze Zeit herrum -.-

[DeddyH]

Probieren ist schlecht, kapieren wäre besser. Wirf doch einfach mal einen Blick in die Hilfe, da werden sowohl FindText als auch TSerachTypes doch recht genau beschrieben. Bei dem Jedi-Dingen wird es doch recht ähnlich sein, auch wenn da wohl eigene Typen verwendet werden.