ARQUIVO TXT - DBGRID
Bom dia.
Estou lendo um arquivo txt que foi gerado através de um programa, porém, tenho que verificar se a linha contém o arquivo .jpg.
Segue o código e uma linha do arquivo txt.
ARQUIVO TXT
65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;KAP2607_UNESC_GRAFICA-106_20141201120118186234_003.pdf
//0: ClientDataSet1DATABASENAME.AsString := sllinha[j];
0: ClientDataSet1ETIQUETA.AsString := sllinha[j];
1: ClientDataSet1INSCRICAO.AsString := sllinha[j];
2: ClientDataSet1GABARITO.AsString := sllinha[j];
3..6
O Próximo campo é IMAGEM
Estou lendo um arquivo txt que foi gerado através de um programa, porém, tenho que verificar se a linha contém o arquivo .jpg.
Segue o código e uma linha do arquivo txt.
ARQUIVO TXT
65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;KAP2607_UNESC_GRAFICA-106_20141201120118186234_003.pdf
//0: ClientDataSet1DATABASENAME.AsString := sllinha[j];
0: ClientDataSet1ETIQUETA.AsString := sllinha[j];
1: ClientDataSet1INSCRICAO.AsString := sllinha[j];
2: ClientDataSet1GABARITO.AsString := sllinha[j];
3..6
O Próximo campo é IMAGEM
União Amado
Curtidas 0
Respostas
Thiago Santana
27/03/2015
if pos(sllinha[j],'.jpg') > 0 then // Existe um arquivo .jpg
GOSTEI 0
União Amado
27/03/2015
Se existir o arquivo .jpg tenho que inserir no meu clientdataset, nos parametros 3..6.
GOSTEI 0
União Amado
27/03/2015
Se existir o arquivo .jpg tenho que inserir no meu clientdataset, nos parametros 3..6.
GOSTEI 0
Thiago Santana
27/03/2015
if pos(sllinha[j],'.jpg') > 0 then
ClientDataSet1IMAGE.LoadFromFile(sllinha[j]);
Tenta assim pra vê!
GOSTEI 0
União Amado
27/03/2015
Não deu certo não.
GOSTEI 0
Thiago Santana
27/03/2015
Qual erro gerado?
GOSTEI 0
União Amado
27/03/2015
Segue as linhas que o meu arquivo txt possui:
65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;KAP2607_UNESC_GRAFICA-106_20141201120118186234_003.pdf
Olha o erro:
---------------------------
Project1
---------------------------
'DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE' is not a valid floating point value for field 'INSCRICAO'
---------------------------
OK
---------------------------
65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;65814528;20310;DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE;KAP2607_UNESC_GRAFICA-106_20141201120118186234_003.pdf
Olha o erro:
---------------------------
Project1
---------------------------
'DCDBBDBCEDDBECADEEBEBBBEDDEDDBBEEBEACDCADDBCCCEECE' is not a valid floating point value for field 'INSCRICAO'
---------------------------
OK
---------------------------
GOSTEI 0
Thiago Santana
27/03/2015
O erro não foi relacionado ao campo Image não!
Foi referente ao campo inscrição.
Pelo que deu para perceber seu campo INSCRICAO é do tipo Float e você está passando um valor que não é float
Foi referente ao campo inscrição.
Pelo que deu para perceber seu campo INSCRICAO é do tipo Float e você está passando um valor que não é float
GOSTEI 0
União Amado
27/03/2015
Não aparece nada no meu DBGRID.
for j := 1 to sllinha.Count -1 do
begin
case j of
//0: ClientDataSet1DATABASENAME.AsString := sllinha[j];
0: ClientDataSet1ETIQUETA.AsString := sllinha[j];
1: ClientDataSet1INSCRICAO.AsString := sllinha[j];
2: ClientDataSet1GABARITO.AsString := sllinha[j];
3..6: ClientDataSet1IMAGEM.AsString := sllinha[j];
end;
end;
ClientDataSet1.Post;
for j := 1 to sllinha.Count -1 do
begin
case j of
//0: ClientDataSet1DATABASENAME.AsString := sllinha[j];
0: ClientDataSet1ETIQUETA.AsString := sllinha[j];
1: ClientDataSet1INSCRICAO.AsString := sllinha[j];
2: ClientDataSet1GABARITO.AsString := sllinha[j];
3..6: ClientDataSet1IMAGEM.AsString := sllinha[j];
end;
end;
ClientDataSet1.Post;
GOSTEI 0
Thiago Santana
27/03/2015
A fonte do seu DBGrid está ligada ao seu ClientDataSet?
GOSTEI 0