nach RichEdit Style überprüfen

[Macpersil]

Hallo alle zusammen,
habe lange gegoogelt und leider nichts gefunden :S

ich möchte den Text in einer RichEdit auf den Style überprüfen also:

Delphi-Quellcode:

if  RichEdit1.Text[i] = RichEdit1.SelAttributes.Style + [fsBold] then begin

habe auch probiert:

Delphi-Quellcode:

if  RichEdit1.Text[i] = RichEdit1.SelAttributes.Style[i]=[fsBold] then begin

und auch:

Delphi-Quellcode:

RichEdit1.Text[i] = #21

leider klappt nichts :(

Danke für eure Hilfe!

[dataspider]

Hi,

Delphi-Quellcode:

if fsBold in RichEdit1.SelAttributes.Style then
  ..

Frank

[Macpersil]

Dankee!! aber wie krieg ich das loop i da rein?

[dataspider]

Zitat:

Zitat von Macpersil

Dankee!! aber wie krieg ich das loop i da rein?

Delphi-Quellcode:

RichEdit1.SelStart  := i;
RichEdit1.SelLength := 1;
...

Frank

[Macpersil]

ok ich muss wirklich dumm sein aber das ist doch keine Schleife?
ich meinte sowas wie

Delphi-Quellcode:

for i:=0 to length(RichEdit1.text) do begin
          if RichEdit1.text[i]:=fsbold ....

Danke für die hilfe soweit frank!

[BUG]

(nicht getestet)

Delphi-Quellcode:

for i := 0 to length(RichEdit1.text)-1 do // Selektion fängt bei 0 an und hört damit bei Länge-1 auf
begin 
  RichEdit1.SelStart  := i;
  RichEdit1.SelLength := 1;
  if fsBold in RichEdit1.SelAttributes.Style then
  begin
    // insert code here
  end;
end;

Frage für den interessierten Leser:
Wie bin ich ohne installiertes Delphi (Lazarus ist ohne RichEdit) darauf gekommen?

[dataspider]

Zitat:

Zitat von Macpersil

ok ich muss wirklich dumm sein aber das ist doch keine Schleife?

Ich dachte, dein Problem ist nur der Code in der Schleife...

Frank