Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Markierung verschiebt sich in jeder Zeile

    Delphi
    by DeddyH, 16. Mai 2017
  Vielleicht auch einfach so (schnell heruntergetippelt, Komponenten nicht einmal umbenannt):
  procedure TForm6.AddZeile(sHeader, sText: string);
  var
  TotalLength: integer;
  begin
  TotalLength := Length(sHeader) + Length(sText);
  RichEdit1.Lines.Add(sHeader + sText);
  RichEdit1.SelStart := RichEdit1.SelStart - Succ(TotalLength);
  RichEdit1.SelLength := Length(sHeader);
  ...