Markierung verschiebt sich in jeder Zeile

[himitsu]

Das ist dann aber ein komisches Verhalten.

Wenn ich SelText was zuweise, dann erwarte ich doch, dass danach in SelText auch was drin ist, also das zugewiesene ebenfalls selektiert ist, denn schließlich hab ich da doch grade den neuen "selektierten Text" zugewiesen,
und wenn ich dann nochmal was Zuweise, dann würde das Selektierte doch wieder überschieben werden.




Mal in einem TMemo ausprobieren, aber dort ist es auch so ... ist doch schockierend.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sUeberschrift : String;
  sText : String;
  i : Integer;
begin
  for i := 1 to 9 do begin
    sUeberschrift := Format('Überschrift: %d',[i]);
    sText := Format('das ist jetzt der Text für Zeile %d.',[i]);
    memoMessage.SelText := sUeberschrift + ' ';
    memoMessage.SelText := sText + #13;
  end;
end;

Wozu hab ich denn dann all die Jahre brav SelStart/SelLength nach Zuweisung an SelText gesetzt, wenn ich das nicht selektiert haben wollte.

Zitat:

SelLength = 0 und nicht SelText = <leer>

SelLength = Length(SelText)
Abgesehn von den misshandelten Zeilenumbrüchen seitens Embarcadero.