Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Ordinare Array
Forum - Delphi - Ordinare Array

Avatar
Daf (Normal User)
Pro


Messaggi: 78
Iscritto: 27/06/2009

Segnala al moderatore
Postato alle 21:35
Lunedì, 07/12/2009
Mi trovo a dover ordinare degli array contenenti record secondo un campo di TDate (double) in ordine crescente:

Codice sorgente - presumibilmente Delphi

  1. type TRec = record
  2.   Data: TDate;
  3.   Nome: string;
  4. end;
  5.  
  6. procedure Sort(Rec: TRec): TRec;
  7. begin
  8.   //funzione di ordinamento
  9. end;
  10.  
  11. var
  12.   Rec: array of TRec;
  13.   I: Integer;
  14. begin
  15.   //...
  16.   SetLength(Rec, I);
  17.   for I := 0 to High(I) do
  18.   begin
  19.     Rec[I].Nome := Nome.Strings[I];
  20.     Rec[I].Date := TmpRec1[I];
  21.     //...
  22.   end;
  23.   //...
  24.   Write(f1, Sort(Rec), SizeOf(Rec));
  25.   //...
  26. end;



Ma non so da dove iniziare... 8-|
Grazie in anticipo delle risp...

PM Quote