Text im Memo markieren?

[s.h.a.r.k]

code]Hey!

Also es gibt da nen wesentlich einfacheren Befehl:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelectAll;
end;

Aber wenn du es unbedingt mit SelStart und SelLength machen willst dann geht das wie folt:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelStart := 0;
  Memo1.SelLength := Length(Memo1.Text);
  Memo1.SetFocus; // Diese Zeile hast du vergessen, denn sonst siehst du die Markierung nicht!
end;

mfg shark