Memo / RichEdit for HTML export

[Delphi.Narium]

Delphi-Quellcode:

procedure TfrmMain.reMainChange(Sender: TObject); // reMain = RichEdit
var
  Len : Integer;
  LenText : Integer;
begin
  Len := StrToIntDef(edtPosition.Text,25); // edtPosition = Editfeld mit Positionsangabe
  edtPosition.Text := IntToStr(Len);

  LenText := Length(reMain.Text); // Wird (eventuell) mehrfach benötigt, ermitteln wir nur einmal.
  if LenText >= Len then
  begin
    reMain.SelStart := Len;
    reMain.SelLength := LenText;  // Soll wohl der restliche Text sein, dann geht auch:
    reMain.SelLength := High(Integer); 
    reMain.SelAttributes.Color := clGreen;
    reMain.SelStart := LenText;  // Soll wohl das Ende des Textes sein, dann geht auch diesmal:
    reMain.SelStart := High(Integer); 
    reMain.SelLength := 0;
  end;
end;