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

[maxzama]

Y resultado es el siguiente:

4790

Inserta el punto (.)

Resultado: 4790

//Esto pasa con cualquier cantidad de caracteres que parezcan o se utilice...

[Casimiro Notevi]

Pero claro, si has convertido la cadena de texto en un entero, sin decimales. No tienes un número, sino una cadena de caracteres, sin comas ni puntos.
En tu caso olvídate de float y todo lo demás, trátalo como una cadena de texto.

Copia en una variable de texto desde el principio de la cadena hasta length-2, le añades la coma y luego los caracteres que van después de length-2 hasta el final.

[ecfisa]

Hola.

Si se trata de una cadena también puede usar el procedimiento Insert

Código Delphi [-]
// Inserta caracter en posición (de derecha a izquierda) 
function InsertPoint(Value: string; const Ch:Char; const PosChar: Integer): string;
begin
  Insert('.', Value, Length(Value)-PosChar+1);
  Result := Value;
end;

Ejemplo de uso:

Código Delphi [-]
...
var
  Monto: string;
  i : Integer;
begin
  Monto := '12345';
  Memo1.Clear;
  for i:= 1 to Length(Monto)-1 do
    Memo1.Lines.Add(InsertPoint(Monto, '.', i));
end;

El resultado:

1234.5
123.45
12.345
1.2345

O simplemente:

Código Delphi [-]
var
  Monto: string;
begin
  Monto := '12345';
  Insert('.', Monto, 4); // 123.45

Saludos

[BDWONG]

Espero esto sea lo que buscas

Código Delphi [-]
function insertCharacter(number:integer):string;
var
str:string;
begin
   str:=inttostr(number);
   if length(str)>2 then Insert(',',str,length(str)-1);

   Result:=str;
end;

var
numero:integer;
begin

 writeln(insertCharacter(123456));
 writeln(insertCharacter(123));
 writeln(insertCharacter(1));
 writeln(insertCharacter(123456789));
 readln;

end.

Saludos..


edito:changos eficsia me gano XD

[maxzama]

Gracias. BDWONG, ecfisa, Casimiro Notevi.

Codigo final:

Código Delphi [-]
function InsertPoint(Value: string; const Ch:Char; const PosChar: Integer): string;
begin
  Insert(',', Value, Length(Value)-PosChar-1);
  Result := Value;
end;

Código Delphi [-]
      Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));
                    Monto:=InsertPoint(Monto,',', E);