problemas, convertir fecha desde un string

[spyfenix]

que tal gente
he estado buscando este tipode ayuda pero no encuentro una solucion
uso un grid y desde ahi voy a validar una fecha dada de esta forma '201207' para que me la convierta de esta forma '20/12/2007'
tengo este codigo perome marca error

var
  aFeha : string;
  Fecha : Date;
begin 
  aFecha := Grid.Cells[0, aRow]; //toma el valor de la celda
  Fecha := StrtoDateTime(aFecha); // me merca el error
end;

espero su ayuda y muchas gracias de antemano.

saludos

[Tal]

1. que error te da?
2. Cambia el tipo de variable de Date a TDate(e incluso te diría que usaras un TDateTime que es mejor)
Y creo que con la segunda solución ya se subsanará el error, sino pasaremos a cosas más mejores.

Un saludo espero haberte ayudado.

[spyfenix]

que tal, TAL jeje
oye muchas gracias por tu ayuda, mira cambiando como dices, me sale el mismo error

Project ejemplos.exe raised exception class EConvertError with message "121212" is not a valid date'

de esta forma quedo el codigo

var
  aFeha : string;
  Fecha : TDateTime;
begin 
  aFecha := Grid.Cells[0, aRow]; //toma el valor de la celda
  Fecha := StrtoDateTime(aFecha); // me merca el error
end;

gracias

[Tal]

Asegurate de que Afecha vale '201207' y luego y por si acaso que está en buen formato.

function CadAFec(const AFecha:string):TdateTime;
var
     cad : string;
begin
      cad := Afecha[1]+Afecha[2]+'/'+Afecha[3]+Afecha[4]+'/'+
                Afecha[5]+Afecha[6]+Afecha[7]+Afecha[8]);
      result := strtoDatetime(cad);
end

Ahora no recuerdo si los strings comienzan por 1 o por cero pero es tocar un valor arriba o uno abajo.

También puedes usar esta función que le pasas el formato de la fecha
StrToDateFmt(Afecha,'ddmmyyy');

Prueba a ver que tal.

Un saludo.

[spyfenix]

Eres ungenio jejeje
Funciono del todo bien, solo un comentario

me lo guarda de esta forma '12/Dic/2008' cuando introdusco =12/Dic/2008=

se podria guardar de esta forma '12/12/2008'

en verdad muchas gracias por tu ayuda

saludos

[Tal]

A mandar, para eso estamos

[ecfisa]

Esto lo convierte:

var
FStr: string;
Fecha: Date;
begin
with Grid do
FStr:= Copy(Cells[0,aRow],1,2) + '/' + Copy(Cells[0,aRow],3,2) + '/' +
Copy(Cells[0,aRow],6,4);
Fecha:= StrToDate(FStr);
end;