Tengo un Problema con el DecimalSeparator

[jeremiselxi]

Buenas tardes.

Esperando se encuentren bien, les explico un poco del problema.

Sucede que teníamos Delphi 7, pero la empresa para la que laboro quiso adquirir la nueva version de Delphi 10 Seattle para pasar nuestra aplicación de productividad a esta nueva version.

Pasa que estoy teniendo problemas con el "DecimalSeparator".

Si tomamos el mismo ejemplo que aparece en esta pagina: http://www.delphibasics.co.uk/RTL.as...cimalSeparator

En delphi 7 funciona a la perfección, pero si lo pongo en el Delphi 10 no funciona.

Adjunto unas imagenes para que vean los errores.

Agradezco de antemano su colaboración.

Saludos y Dios los bendiga.

[aposi]

has puesto en el uses la SysUtils ??

[jeremiselxi]

Empezado por aposi

has puesto en el uses la SysUtils ??

Gracias por responder tan rápido.

Si lo he puesto,

Adjunto el código que estoy utilizando:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  amount : Currency;
begin
  amount := 12.34;    // 12 pounds 34 pence

  // Display with the default decimal point character
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));

  // Display with a new decimal point character
  DecimalSeparator := '|';
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));


end;

end.

[jeremiselxi]

Empezado por jeremiselxi

Gracias por responder tan rápido.

Si lo he puesto,

Adjunto el código que estoy utilizando:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  amount : Currency;
begin
  amount := 12.34;    // 12 pounds 34 pence

  // Display with the default decimal point character
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));

  // Display with a new decimal point character
  DecimalSeparator := '|';
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));


end;

end.

Provee de esta forma y funcionó:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  amount : Currency;
begin
  amount := 12.34;    // 12 pounds 34 pence

  // Display with the default decimal point character
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));

  // Display with a new decimal point character
  FormatSettings.DecimalSeparator := '|';
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));


end;

end.

Gracias por todo y un saludo desde la República Dominicana.

[aposi]

prueba esto :

Código Delphi [-]
FormatSettings.DecimalSeparator := '|';