wort in memo finden

[Surge0n]

hi
ich möchte gern aus einer memo ein wort auslesen und dieses dann rot färben
ich habe es mit pos(memo1.lines.string[1],'wort'
probiert um den standort des wortes zu ermitteln doch irgendwie will es nicht funktionieren...

[SirThornberry]

Zitat:

doch irgendwie will es nicht funktionieren...

Und was bedeutet das? Was heißt "funktioniert nicht"? Kommt eine Fehlermeldung?
Und du bist dir auch sicher das in der zweiten Zeile des Memos das Wort vorkommt?

[SimStar001]

durchsuch doch das memo zeile für zeile nach dem string.

Delphi-Quellcode:

for  i:= 0 to memo1.lines.count - 1 do
  if posex('gesuchterString',memo1.lines[i]) > 0 then
    begin
    tue etwas
    end;

Diese schleife setzt vorraus, dass der string auch nur einmal vorhanden ist. wenn mehrere pro zeile gibt musst du dir halt ein bissl was einfallen lassen!


LG Marco!

[Surge0n]

danke für die hilfe abereine frage hätt ich noch...kann ich dann auch diesen string rot färben??

[SirThornberry]

in einem Memo geht das nicht.

[fkerber]

zur Ergänzung:
Dafür kannst du z.B. ein TRichEdit nehmen.


Grüße, Frederic

[Surge0n]

ich habe einen code für die veränderung der farben gefunden doch da kommt immer der fehler "ungültige typumwandlung"

richedit1.FindText('let',0,length(richedit1.Text),string(stwholeword)).color:=clred;

[fkerber]

Was ist denn stwholeword?

Grüße, Frederic

[Surge0n]

das stand unter "tsearchtypes"

[Spanky]

FindText liefert die Position des Strings, also ein Integer. Du musst den Text, den du verändern möchtest, erst markieren (Eigenschaften SelStart und SelLength).

Du solltest dir außerdem mal die SelAttributes Eigenschaft vom TRichEdit anschauen.