[Investment]

Empezado por Maga84

gracias Investment voy a ver si con lo q me has mandado lo saco

De nada.

procedure LoQueSea;
 var Campo1:string;
 var campo2:integer
 var Campo3:TdateTime;
 begin
    Campo1:= query.fieldByName('Campo1').asString;
    Campo2:= query.fieldByName('Campo2').asInteger;
    Campo3:= query.fieldByName('Campo3').asDateTime;  
  end;