Importar un archivo separado por comas

[mivaler]

Hola... soy nuevo por aquí...

quiero importar un archivo plano separado por comas (csv) en un TTable.

al establecerle al Ttable la ubicacion del archivo y activar el Ttable, este solo me muestra 1 campo FIELD1 y en el toda la linea con los datos separados por comas.

es logico que lo que deseo es separar los campos pero no lo he logrado.

soy nuevo en desarrollo en delphi y quisera que alguien me ayude en esta duda...

agradeceré sus aportes.

[mivaler]

procedure Tcarga.Button1Click(Sender: TObject);
var dbpath : String;
begin
dbpath := AppPath+'files';
open.InitialDir := dbpath;
if open.Execute then
begin
ti.DatabaseName := dbpath;
ti.TableName:=open.Filename;
ti.Open;
ti.Last;
end;
end;

[delphi.com.ar]

Hola Miguel, he subido el componente que faltaba en http://www.delphi.com.ar/vcl/index.html, espero que te sirva.
Para instalarlo solo tienes que agregar el archivo pas a algún paquete y el DCU debe estar en el search path.

Suerte!

[mivaler]

Hola delphi.com.ar

hago lo normal para instalarlo, Component > Install Component

Unit File Name : RegFileReader.pas.

el DCU ubicado en un Search Path ( $(DELPHI)\Lib )

un paquete existente...

y voila... Error..

[Error] RegFileReader.pas(21): Undeclared identifier: 'TFileReader'

una cosa... me tomé el atrevimiento de poner un corchete que parece que faltaba en

RegisterComponents('FireSoft', [TFileReader]);

lo habias colocado como

RegisterComponents('FireSoft', [TFileReader);

dime... que estoy haciendo mal o que???

sin más...

[delphi.com.ar]

No entiendo como es que quedó esa Unit en el Zip, debería ser algo así:

unit RegFileReader;

interface

procedure Register;

implementation

uses
Classes, FileReader;

procedure Register;
begin
RegisterComponents('FireSoft', [TFileReader]);
end;

end.

[mivaler]

Hola delphi.com.ar

bueno... esta vez... como que si como que no...

nuevo error... miralo desde esta optica... soy tu conejillo de indias y así probamos si se puede instalar el componente o no..

[/b][Fatal Error] RegFileReader.pas(18): File not found: 'Strfuncs.dcu'[/b]

trate de utilizar el componente sin instalarlo, llamandolo desde uses y me sale el mismo error

que opinas????

[delphi.com.ar]

Y... si... ¿te acordás cuando te dije que me tenía que tomar un tiempo para armar un paquete con el componente?... bueno, eso es lo que tengo que hacer con un poco mas de tiempo...

Te mando un mail cuando lo tenga!

[mivaler]

ahora si me funciono y lográ hacer la conversión...

Gracias hombre