Ver Mensaje Individual
  #1  
Antiguo 12-02-2008
Albertito Albertito is offline
Registrado
 
Registrado: feb 2008
Posts: 4
Reputación: 0
Albertito Va por buen camino
Smile Cargar Varios CSV's en un solo Memo

Hola a todos, soy nuevo en el foro y también llevo poco programando en Delphi, así que de antemano ya agradezco cualquier ayuda que me puedan dar al respecto.

Necesito cargar varios archivos CSV en un memo, por ejemplo, o algo que luego me permita tratar los valores para poder hacer las gráficas con un TChart.
Los archivos son del tipo:
C:\200801220930_Demanda_Inst.csv
C:\200801220935_Demanda_Inst.csv
C:\200801220940_Demanda_Inst.csv
Con un archivo me funciona bien y grafico los valores en variables del tipo:
Código Delphi [-]
 
type
MesuresZones = Record
 Nom:TStringList;
 Data:TStringList;
 Mesura:TStringList;
Mi problema es poder tratar toda la información de todos los CSV's juntos y así que en las variables generadas tipo MesuresZones ya pueda dibujar las gráficas. El LoadFromFile o LoadFroamStream del Memo, te machaca el anterior.

He visto en el foro que a lo mejor un TStream me iría bien pero no tengo nada claro como poder utilizarlo. Lo ideal sería alguna clase que tuviera puntero pra poder seguir incorporando datos fonde me he quedado.

Lo que necesito es alg o así:
Código Delphi [-]
 
var
Hora,Minut:integer;
Begin
Hora:=9;
Minut:=30;
Try
While Minut<41 do begin    
Stream1:=TFileStream.Create('C:\200801220'+IntToStr(Hora)+IntToSTr(Minut)+'_Demanda_Inst.csv',fmOpen  Read);
{   
Poner en algun sitio intermedio esta información, y seguir cargando todos los CSV's
}    
    Minut:=Minut+5;
Finally;
  Stream1.Free;
end;

Muchas gracias de antemano!!

Un saludo!
Responder Con Cita