transformar millones en decimal

[TrUnkS]

Hola amigos. Tengo una base en access llena de numeros en millones, es decir, de la forma 1.234.567 pero sin los puntos, son numeros enteros. lo que quiero es agregar el caracter ',' despues de la primera cifra para que quede como numero decimal, osea que quede de la forma 1,234567. Mi idea es transformar el numero a una cadena y agregar el caracter ',' trasladando el resto de los caracteres hacia la derecha pero no he podido conseguirlo. Si alguien tiene alguna funcion o idea le estaria agradecido.

[Neftali [Germán.Estévez]]

(1) Pasa el número a string
(2) Coge el primer caracter Str[1]
(3) Añádele la COMA ','
(4) Añadele el resto de la cadena (función COPY)

Código Delphi [-]
Copy(Str,2, Lenght(Str));

[ContraVeneno]

¿y si solo cambias el tipo de dato de tu campo a un tipo monetario? (currency, money, incluso Float debe servir)

[TrUnkS]

muchas gracias por la ayuda pude resolverlo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Str: String;
    CADENA: String;
begin
 ADOTable.Open;
 ADOTable.First;
 while ADOTable.Eof = False do
  begin
     Str := FloatToStr(ADOTableCAMPO.AsFloat);
     CADENA := Str[1] + ',' + Copy(Str,2, Length(Str));
     ADOTable.Edit;
     ADOTableCH5.AsFloat := StrToFloat(CADENA);
     ADOTable.Post;
     ADOTable.Next;
  end;
end;

[TrUnkS]

El problema que tengo es con los numeros negativos, por ejemplo -1.234.567, pues no me los reconoce como float ni como entero y no hace la operacion, en fin es raro.

[Neftali [Germán.Estévez]]

Empezado por TrUnkS

...es con los numeros negativos, por ejemplo -1.234.567, pues no me los reconoce como float ni como entero y no hace la operacion, en fin es raro.

No es raro, es normal. No comentaste nada de los negativos.
Al coger:

Código Delphi [-]
Str[1]

Estás quedándote con el SIGNO - , no con el primer número. En ese caso debería hacer:

Código Delphi [-]
Str[1] + Str[2] + ',' + Copy(Str,3, Lenght(Str));

[TrUnkS]

Gracias Neftali también lo había solucionado asi. Gracias