Wie setze ich den Curser an das Ende des textes im Editfeld

[chris_82]

Delphi-Quellcode:

procedure TFrmEinstellungen.edtintervalChange(Sender: TObject);
var i, Laenge: Integer;
    EdtText:string;
begin
 //Prüfen ob nur Zahlen in das Editfeld eingegeben werden, falls nicht lösche das letzte Zeichen
 for i:=1 to length(EdtInterval.Text) do
  If not(EdtInterval.Text[i] in [#48..#57]) Then
  Begin
   MessageDlg('Das Intervall muss ein Ganzzahl sein', mtWarning, [mbok], 0);

   Laenge:= length(EdtInterval.Text);

   EdtText:= copy(EdtInterval.Text,0,(Laenge-1));

   EdtInterval.Text:= EdtText;

   //Setze Curser an das Ende des Editfeldes
   EdtInterval.SetFocus;
   EdtInterval.SelStart := length(EdtInterval.text);
  End;
end;

@Luckie: So besser? oder ist das immer noch Autsch?

@GeorgeWNewbie: Verstehe nicht was du meinst.