Separador de miles en un memo

[ecfisa]

Hola rufo.

Se le puede dar una solución similar a lo que tratamos aquí

Ejemplo:

Código Delphi [-]
var
  S: TSmallPoint;
begin
  // Salvar separadores actuales
  S.x:= Ord(ThousandSeparator);
  S.y:= Ord(DecimalSeparator);

  // Configurar separadores
  ThousandSeparator:= ',';
  DecimalSeparator:= '.';

  // Poner unos números en el memo
  Memo1.Lines.Add(FormatFloat('#,##0.00',1525.15));
  Memo1.Lines.Add(FormatFloat('#,##0.00',25312.33));
  ...

  // Restaurar separadores
  ThousandSeparator:= Chr(S.x);
  DecimalSeparator:= Chr(S.y);
end;

Saludos.