Cargar Varios CSV's en un solo Memo

[keyboy]

Empezado por dec

Yo sigo a lo mío...

Podemos combinar ideas:

Código Delphi [-]
procedure ReadFiles(Path, Mask: String; Lines: TStrings);
var
  SearchRec: TSearchRec;
  SomeLines: TStringList;
  Result: Integer;

begin
  Path := ExtractFilePath(Path);
  Result := FindFirst(Path + Mask, faAnyFile, SearchRec);

  try
    if Result = 0 then
    begin
      SomeLines := TStringList.Create;

      try
        repeat
          SomeLines.LoadFromFile(Path + SearchRec.Name);
          Lines.AddStrings(SomeLines);

          Result := FindNext(SearchRec);
        until Result <> 0;
      finally
        SomeLines.Free;
      end;
    end;
  finally
    FindClose(SearchRec);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ReadFiles('.\', '*.csv', Memo1.Lines);
end;

Bye

[dec]

Hola,

Pues claro que podemos combinar ideas, no faltaba más.

Código Delphi [-]

begin
  Result := _CopyObject('.\', '*.csv');
end;

Je, je, je... No he podido evitarlo.

[[egostar]]

Empezado por dec

Hola,

Pues claro que podemos combinar ideas, no faltaba más.

Código Delphi [-]
 
begin
   Result := _CopyObject('.\', '*.csv');
end;

Je, je, je... No he podido evitarlo.

Cuidaditoo con esa función, a ver si un día de estos se devela el misterio

Salud OS

[Albertito]

Muchas Gracias a todos por vuestra rapidez así como por la clase magistral que me habéis dado. Lo he probado y me va perfecto!!!!! Me habéis sacado un peso de encima!

Gracias de nuevooo!!