Also ich hab jetzt was das so funktioniert wie ich es mir vorgestellt habe:
Delphi-Quellcode:
procedure GetAttLines (const rich: TRichEdit;
const style: TFontStyles;
const size : integer;
var list: TStrings);
var
i,
count,
len : integer;
begin
count := 0;
for i := 0 to rich.Lines.Count - 1 do
begin
len := length(rich.Lines[i]);
rich.SelStart := count;
rich.SelLength := len;
if ((rich.SelAttributes.Style = style) AND
(rich.SelAttributes.Size = size)) then
list.add(IntToStr(i));
count := count + len + 2;
end;
end;
Mein Fehler war das ich #13#10 am Zeilenende nicht mit berücksichtigt hatte
Aber evtl. gibt’s ja noch eine andere Lösung.
Gruß
tr909