Insertar un Carácter, antes de los 2 últimos carácter

[maxzama]

Hola a Todos.

Necesito Insertar un carácter, antes de los Dos últimos carácter Impreso. Ej:

Valor = 12345

Insertar Coma (,)

123,45

// esto que pase con cualquier valor obtenido sin importar la cantidad de carácter

Como Puedo hacer en código, el siguiente ejemplo (Ya mostrado)?.

Espero sus respuesta por favor y gracias...

[Casimiro Notevi]

http://www.delphibasics.co.uk/RTL.asp?Name=FormatFloat

[maxzama]

Gracias por la ayuda Casimiro. Pero pasa lo siguiente:

Ya e colocado o insertado esto Dos código, el cual se acerca a lo que quiero(O eso muestra sus ejemplos).

Código Delphi [-]
ShowMessage('0.#### : '+FormatFloat('0.####', float)); Resultado:  1234.567

ShowMessage('#,##0 : '+FormatFloat('#,##0', float));                  resultado:  1,235

Aun así, no me da el resultado que busco.


Este es mi siguiente código con resultado:

Código Delphi [-]
 Memo2.Lines[0];
                for I := 0 to Memo2.Lines.Count-1 do
                begin
                    Cad:=Memo2.Lines[i];
                    
                    Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));   //código para quitar los ceros a la izquierda
                    Float:=strtoint(Monto);
                    SHOWMESSAGE(FormatFloat('0.####', float)); //para colocar el siguiente caracter (,)   //resultado: 19062
                end;

Código Delphi [-]
Memo2.Lines[0];
                for I := 0 to Memo2.Lines.Count-1 do
                begin
                    Cad:=Memo2.Lines[i];
                    
                    Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));   //código para quitar los ceros a la izquierda
                    Float:=strtoint(Monto);
                    SHOWMESSAGE(FormatFloat('#,#0', float)); //para colocar el siguiente caracter (,)   //resultado: 19,062
                end;

No se que me falta o que e colocado mal?.

Espero sus respuesta por favor y Gracias.

[Casimiro Notevi]

Si quieres mostrar 2 decimales: #,##

[maxzama]

Código Delphi [-]
Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));
                    Float:=strtoint(Monto);
                    SHOWMESSAGE(FormatFloat('#,##', float));

Y resultado es el siguiente:

4790

Inserta la coma (,)

Resultado: 4,790
________________

Y si es de 5 caracteres pasa lo siguiente:
19062

inserta la coma (,)

Resultado: 19,062

[Casimiro Notevi]

Seguramente tu sistema tiene puesto que el punto decimal en lugar de la coma. Cambia la coma por el punto: #.##