StringReplace (posicionamiento cursor)

[jymy788]

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:


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

[Neftali [Germán.Estévez]]

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

[jymy788]

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

Gracias