Fórum Extremo Hard!!! #452746
21/08/2013
0
Olá pessoal!
Então estou tentando fazer um gráfico (Chart) do Delphi 7 ler arquivo txt com valores randômicos, a 1° parte já fiz que é salva-lo só que a parte de ler esses dados Randômicos que está tirando meu sono. Já tentei fazer diversas pesquisas e não encontrei nem uma se vcs puderem me ajudar agradeço!!!
Desde já Agradeço!
Aqui abaixo está a estrutura para fazer a leitura do arquivo txt:
procedure TFrmPrincipal.SBtn_AbrirClick(Sender: TObject);
var
linha:string;
contdados: integer;
begin
begin
if Dialog_Abrir.Execute then
if (Dialog_Abrir.FileName <> '') then
begin
AssignFile (meuini, Dialog_Abrir.FileName);
reset (meuini);
//Rewrite(meuini);
while not(Eof(meuini)) do
begin
read (meuini, linha);//le a 1° linha do arquivo;
Edit_Arquivo.Text:= linha;
for contdados:= 1 to Contador do
matriz[contdados]:= contdados;
//Read (meuini, Matriz[linha2]);
//Rewrite(meuini, Matriz[linha2]);
//Series1.AddXY();
break;
end;
CloseFile(meuini);
end;
end;
Então estou tentando fazer um gráfico (Chart) do Delphi 7 ler arquivo txt com valores randômicos, a 1° parte já fiz que é salva-lo só que a parte de ler esses dados Randômicos que está tirando meu sono. Já tentei fazer diversas pesquisas e não encontrei nem uma se vcs puderem me ajudar agradeço!!!
Desde já Agradeço!
Aqui abaixo está a estrutura para fazer a leitura do arquivo txt:
procedure TFrmPrincipal.SBtn_AbrirClick(Sender: TObject);
var
linha:string;
contdados: integer;
begin
begin
if Dialog_Abrir.Execute then
if (Dialog_Abrir.FileName <> '') then
begin
AssignFile (meuini, Dialog_Abrir.FileName);
reset (meuini);
//Rewrite(meuini);
while not(Eof(meuini)) do
begin
read (meuini, linha);//le a 1° linha do arquivo;
Edit_Arquivo.Text:= linha;
for contdados:= 1 to Contador do
matriz[contdados]:= contdados;
//Read (meuini, Matriz[linha2]);
//Rewrite(meuini, Matriz[linha2]);
//Series1.AddXY();
break;
end;
CloseFile(meuini);
end;
end;
William Camargo
Curtir tópico
+ 0
Responder
Posts
21/08/2013
Wesley Yamazack
Opa William, o que você acha de salvar este teu txt em um clientdataset em tempo de execução, e a partir deste CDS, você montaria o teu gráfico?
Eu tenho um artigo sobre cds com txt: [url]https://www.devmedia.com.br/quick-tips-importar-txt-para-clientdataset/16202[/url]
trabalhando com gráficos tem este aqui: [url]https://www.devmedia.com.br/quick-tips-trabalhando-com-dbchar-parte-i/16199[/url] e [url]https://www.devmedia.com.br/quick-tips-trabalhando-com-dbchar-parte-ii/16200[/url]
Veja se isso irá lhe ajudar.
Um abraço
Eu tenho um artigo sobre cds com txt: [url]https://www.devmedia.com.br/quick-tips-importar-txt-para-clientdataset/16202[/url]
trabalhando com gráficos tem este aqui: [url]https://www.devmedia.com.br/quick-tips-trabalhando-com-dbchar-parte-i/16199[/url] e [url]https://www.devmedia.com.br/quick-tips-trabalhando-com-dbchar-parte-ii/16200[/url]
Veja se isso irá lhe ajudar.
Um abraço
Responder
Gostei + 0
22/08/2013
William Camargo
Então cara, consegui fazer a leitura dos segundos agora só falta ele conseguir ler a cada segundo os valores randômicos.
Meus valores randômicos estão sendo salvos assim no arquivo txt:
97 , 33 , 72 , 52 , 1 , 32 , 42 , 55 , 34 , 4 , 93 , 66 , 60 , 1 , 48 , 87 , 21 , 81 , 0 , 50 , 49 , 93 , 41 , 24 , 41 , 15 , 75 , 7 , 24 , 7 , 18 , 93 , 35 , 65 , 59 , 91 , 83 , 63 , 23 , 11 , 74 , 37 , 68 , 78 , 14 , 39 , 13 , 17 , 30 , 63 , 61 , 18 , 50 , 33 , 81 , 92 , 62 , 97 , 64 ,
tudo na mesma linha.
eu só preciso que ele sejam lidos no Tchart;
1 segundo: imprime 97;
2 segundos: imprime 33;
3 segundos: imprime 72;
e assim vai...
Meus valores randômicos estão sendo salvos assim no arquivo txt:
97 , 33 , 72 , 52 , 1 , 32 , 42 , 55 , 34 , 4 , 93 , 66 , 60 , 1 , 48 , 87 , 21 , 81 , 0 , 50 , 49 , 93 , 41 , 24 , 41 , 15 , 75 , 7 , 24 , 7 , 18 , 93 , 35 , 65 , 59 , 91 , 83 , 63 , 23 , 11 , 74 , 37 , 68 , 78 , 14 , 39 , 13 , 17 , 30 , 63 , 61 , 18 , 50 , 33 , 81 , 92 , 62 , 97 , 64 ,
tudo na mesma linha.
eu só preciso que ele sejam lidos no Tchart;
1 segundo: imprime 97;
2 segundos: imprime 33;
3 segundos: imprime 72;
e assim vai...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)