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:

if RichEdit1.Text[i] = RichEdit1.SelAttributes.Style + [fsBold] then begin habe auch probiert:

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

RichEdit1.Text[i] = #21 leider klappt nichts

Danke für eure Hilfe!

Hi,

markieren

Delphi-Quellcode:

if fsBold in RichEdit1.SelAttributes.Style then
  ..

Frank

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

Zitat von Macpersil:

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

markieren

Delphi-Quellcode:

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

Frank

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

markieren

Delphi-Quellcode:

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

Danke für die hilfe soweit frank!

(nicht getestet)

markieren

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?

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