Fórum exportar txt para stringgrid no delphi-7 #529689
25/08/2015
0
bom dia presciso exportar todos os dados de uma stringgrid do delphi tenho o seguinte codigo mas os dados aparecem fora da ordem nas celulas
procedure Tfrmlivrodiario.Button2Click(Sender: TObject);
var arq:textfile;
linhasarq:string;
data,conta,historico:string;
debito,credito:real;
colunas,i:integer;
begin
if abrirtxt.Execute then
if(abrirtxt.FileName <> '')then
begin
AssignFile(arq,abrirtxt.FileName);
Reset(arq);
colunas:=1;
With stringgrid do
for i:= 1 to RowCount -1 do
Rows[i].Clear;
while Not (Eof(arq)) do
begin
linhasarq:= '';
Readln(arq,linhasarq);
data:=copy(linhasarq,0,8);
stringgrid.Cells[0,colunas]:= data;
colunas:= colunas + 1;
end;
end;
CloseFile(arq);
end;
end.
procedure Tfrmlivrodiario.Button2Click(Sender: TObject);
var arq:textfile;
linhasarq:string;
data,conta,historico:string;
debito,credito:real;
colunas,i:integer;
begin
if abrirtxt.Execute then
if(abrirtxt.FileName <> '')then
begin
AssignFile(arq,abrirtxt.FileName);
Reset(arq);
colunas:=1;
With stringgrid do
for i:= 1 to RowCount -1 do
Rows[i].Clear;
while Not (Eof(arq)) do
begin
linhasarq:= '';
Readln(arq,linhasarq);
data:=copy(linhasarq,0,8);
stringgrid.Cells[0,colunas]:= data;
colunas:= colunas + 1;
end;
end;
CloseFile(arq);
end;
end.
Greg Szatkoski
Curtir tópico
+ 0
Responder
Posts
25/08/2015
Raimundo Pereira
Bom dia, GREG
Não testei o código fiz no bloco de notas.
DECLARE USES [IniFileS]
Estrutura do Arquivo TXT
//////////////////////////////////////////////////////////////////////////
[PARAM]
DATA=25/08/2015
CONTA=00000
HISTORICO=TESTE
DEBITO=190,00
CREDITO=200,00
COLUNAS=13
//////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////
procedure Tfrmlivrodiario.Button2Click(Sender: TObject);
VAR
Arq:TIniFile;
Caminho_CONF:string;
DATA,CONTA,HISTORICO:STRING;
DEBITO,CREDITO:REAL;
COLUNAS,I:INTEGER;
BEGIN
Caminho_CONF:=(ExtractFilePath(Application.ExeName) +'NOME_DO_SEU_ARQUIVO');
IF NOT (FileExists(Caminho_CONF)) THEN
BEGIN
ShowMessage('Arquivo não localizado.');
END
ELSE
BEGIN
ARQ:=TiniFile.Create(ExtractFilePath(Application.ExeName) +'NOME_DO_SEU_ARQUIVO');
DATA:=vArquivo.ReadString('PARAM','DATA','');
CONTA:=vArquivo.ReadString('PARAM','CONTA','');
HISTORICO:=vArquivo.ReadString('PARAM','HISTORICO','');
DEBITO:=vArquivo.ReadString('PARAM','DEBITO','');
CREDITO:=vArquivo.ReadString('PARAM','CREDITO','');
COLUNAS:=vArquivo.ReadString('PARAM','COLUNAS','');
ARQ.FREE;
END;
END;
END;
END;
END;
END.
Não testei o código fiz no bloco de notas.
DECLARE USES [IniFileS]
Estrutura do Arquivo TXT
//////////////////////////////////////////////////////////////////////////
[PARAM]
DATA=25/08/2015
CONTA=00000
HISTORICO=TESTE
DEBITO=190,00
CREDITO=200,00
COLUNAS=13
//////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////
procedure Tfrmlivrodiario.Button2Click(Sender: TObject);
VAR
Arq:TIniFile;
Caminho_CONF:string;
DATA,CONTA,HISTORICO:STRING;
DEBITO,CREDITO:REAL;
COLUNAS,I:INTEGER;
BEGIN
Caminho_CONF:=(ExtractFilePath(Application.ExeName) +'NOME_DO_SEU_ARQUIVO');
IF NOT (FileExists(Caminho_CONF)) THEN
BEGIN
ShowMessage('Arquivo não localizado.');
END
ELSE
BEGIN
ARQ:=TiniFile.Create(ExtractFilePath(Application.ExeName) +'NOME_DO_SEU_ARQUIVO');
DATA:=vArquivo.ReadString('PARAM','DATA','');
CONTA:=vArquivo.ReadString('PARAM','CONTA','');
HISTORICO:=vArquivo.ReadString('PARAM','HISTORICO','');
DEBITO:=vArquivo.ReadString('PARAM','DEBITO','');
CREDITO:=vArquivo.ReadString('PARAM','CREDITO','');
COLUNAS:=vArquivo.ReadString('PARAM','COLUNAS','');
ARQ.FREE;
END;
END;
END;
END;
END;
END.
Responder
Gostei + 0
25/08/2015
Greg Szatkoski
testei o seu codigo mas ainda retorna fora de ordem
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)