Italian community of Lazarus and Free Pascal

ti ringrazio

ti allego codice

se posso volevo anche chiedere non essendo possibile almeno da quanto ne so col dbf fare delle query tipo order by cognome per un riordino io ho caricato dbf in bufdataset e da li ho a seconda della colonna cliccata ho riordinato.pero se faccio piu riordini oppure carico abbastanza dati mi esce out of memory.

Qui non riesco ad aiutarti, non uso dbf e nemmeno database non SQL (che non supportano"ORDER BY"). Posso solo dirti che se compare quell'errore è probabile che tu stia usando dei buffer ad allocazione dinamica (size variabile) che non vengono correttamente allocati (o liberati) oppure che ci sia un limite con le strutture DBF (penso che Lazarus sia uno degli ultimi linguaggi a supportare dbf direttamente).

Un'altra possibilità è che tu stia sviluppando una applicazione a 32 bit che esaurisca effettivamente la memoria (però a meno che tu non abbia decina di migliaia di record ne dubito).

Qualcuno del forum, se ha già approcciato queste problematiche, forse potrebbe aiutarti.

Ciao

P.S.: se riporti parte del codice e dove viene generato l'errore magari ci si può ragionare.

funziona perfettamente sei un grande grazie

grazie per avermi risposto mi fai un esempio di come collocare il tuo codice
ti scrivo il mio
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var datamatricola:string;
begin
     CellFont := Form2.DBGrid1.Canvas.Font;
     Form2.DBGrid1.Canvas.Font.Color:=clblue;
     Form2.DBGrid1.Canvas.Brush.Color:=clWhite;
     QUI VORREI DIRE SE RECORD E CANCELLATO scrivi in rosso
     Form2.DBGrid1.Canvas.Font.Color:=clRED;
     Form2.DBGrid1.Canvas.Brush.Color:=clWhite;
     Form2.DBGrid1.Canvas.FillRect(Rect);
     Form2.DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);     
end;