Hola.
Si se trata de una cadena también puede usar el procedimiento
Insert
Código Delphi
[-]
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:
Cita:
1234.5
123.45
12.345
1.2345
|
O simplemente:
Código Delphi
[-]
var
Monto: string;
begin
Monto := '12345';
Insert('.', Monto, 4);
Saludos