Delphi-Quellcode:
Richedit1.Lines.add(#9#9#9#9 + 'Summe von ' + #9 + 'Euro');
Richedit1.Lines.add(#9#9#9#9 + 'blabla ' + #9 + 'Euro');
for i:=0 to RichEdit1.Lines.Count -1 do
begin
with RichEdit1 do
begin
SelStart := Perform(EM_LINEINDEX, i, 0) + Zahl(z.b.:4);
SelLength := 60;
if i= 1 then
begin
SelAttributes.Style:= [fsUnderline];
end;
end;
Das ist die Lösung , trotzdem DANKE für eure Hilfe.