Foros Club Delphi - StringReplace (posicionamiento cursor)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - StringReplace (posicionamiento cursor) (https://www.clubdelphi.com/foros/showthread.php?t=46893)

StringReplace (posicionamiento cursor)

Buenas a tod@s.

Tengo un problemilla:

En el evento OnChange de un TEdit, estoy haciendo un stringReplace para cambiar las COMAS por PUNTOS de la siguiente forma:

Código:

procedure TForm1.eDescuentoChange(Sender: TObject);

var

  valueOrig, valueNew: string;

  tam: integer;

begin

  valueOrig := eDescuento.Text;

  tam := strLen(PChar(valueOrig));

  valueNew := StringReplace(valueOrig, ',', '.', [rfReplaceAll]);

  eDescuento.Text := valueNew;

end;

Funciona bien el replace pero el problema es que me posiciona el cursor al principio del TEdit en cuestión en lugar de al final.

¿Cómo puedo solucionar esto?

Gracias de antemano

Busca en la ayuda sobre SelLength y SelStart.
Con estas propiedades del Edit puedes variar la posición del cursor.

Gracias Neftali, lo había probado pero el entero que le asignaba estaba mal calculado..... está claro, estoy de lunes total.

Gracias