Ordenar un array de records

[roman]

Todo esto está muy bien pero si ya va a usar objetos para mi que los registros salen sobrando. Es decir, en lugar de

Código Delphi [-]
type Tregistro = record
  Registro= record
   Nombre, Direccion: String;
    Fecha: TDateTime;
    end

type TCliente = class(Tobject)
   public 
      Datos:TRegistro
   end;

¿por qué no simplemente

Código Delphi [-]
type TCliente = class(Tobject)
   public 
     Nombre, Direccion: String;
     Fecha: TDateTime;
   end;

// Saludos

[Feñiz]

Muchas gracias a los 2, lo he implementado utilizando el TObjectlist, y va perfectamente (por cierto, lo que comenta Roman también se me había pasado a mí por la cabeza al ver la respuesta de Lepe ).

Lo único que no entiendo muy bien es la función de ordenación que ha puesto Lepe:

Código Delphi [-]
function OrdenaFecha(a: Pointer; b: Pointer): Integer;
begin
  if TCliente(a).Fecha > TNota(b).DAtos.Fecha then
    Result := 1
  else if TCliente(a).Fecha < TNota(b).DAtos.Fecha then
    Result := -1
  else
    Result := 0;
end;

¿No debería ser así?:

Código Delphi [-]
function OrdenaFecha(a: Pointer; b: Pointer): Integer;
begin
  if TCliente(a).Fecha > TCliente(b).Fecha then
    Result := 1
  else if TCliente(a).Fecha < TCliente(b).Fecha then
    Result := -1
  else
    Result := 0;
end;

Teniendo en cuenta que la definición de TCliente es la que ha sugerido Roman, es decir:

Código Delphi [-]
type TCliente = class(Tobject)
   public 
     Nombre, Direccion: String;
     Fecha: TDateTime;
   end;

[[Lepe]]

jejeje, estan al quite

El final de mi mensaje incluía esa opción, pero lo quité por 2 razones:
- Si ya lo tienes todo implementado con Records, tienes menos modificaciones.
- Si ya guardas el archivo con un File of Trecord, puedes seguir usandolo con los objetos, sin tener que modificar nada.

Si haces la corrección que propone Roman, debes cambiar la función de ordenación como bien has sugerido, Feñiz.

Saludos