Fórum Quero colocar um arquivo texto em TMemo, help me? #175986
19/08/2003
0
A idéia inicial é de colocar um arquivo texto em um TMemo, e depois disto colocar os dados do TMemo dentro de uma planilha do Excel, alguem tem alguma dica?
Pra começar, o que está errado nesta instrução?
Memo1.Clear;
Endereco:=FileListBox1.FileName;
Memo1.Lines.LoadFromFile(Endereco);
Label2.Caption:=FileListBox1.FileName;
AssignFile(TEXTO,Endereco);
Reset(TEXTO);
while not Eof(TEXTO) do
begin
LINHA := ´´;
ReadLn(TEXTO,LINHA);
Memo1.Lines.Add:=LINHA;
end;
Pra começar, o que está errado nesta instrução?
Memo1.Clear;
Endereco:=FileListBox1.FileName;
Memo1.Lines.LoadFromFile(Endereco);
Label2.Caption:=FileListBox1.FileName;
AssignFile(TEXTO,Endereco);
Reset(TEXTO);
while not Eof(TEXTO) do
begin
LINHA := ´´;
ReadLn(TEXTO,LINHA);
Memo1.Lines.Add:=LINHA;
end;
Host
Curtir tópico
+ 0
Responder
Posts
19/08/2003
Marcelo Saviski
[color=darkblue:b4a8581215]Memo1.Clear; [/color:b4a8581215] /Certo, limpa o Memo
[color=darkblue:b4a8581215]Endereco:=FileListBox1.FileName; [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]Memo1.Lines.LoadFromFile(Endereco); [/color:b4a8581215] /OK, carrega o arequivo no memo
[color=darkblue:b4a8581215]Label2.Caption:=FileListBox1.FileName; [/color:b4a8581215] /OK
até aqui ele abre o arquivo e coloca no memo, se for só isso não presisa da parte que está para baixo que funciona sem ela.
[color=darkblue:b4a8581215]AssignFile(TEXTO,Endereco); [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]Reset(TEXTO); [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]while not Eof(TEXTO) do [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]begin [/color:b4a8581215]
[color=darkblue:b4a8581215]LINHA := ´´; [/color:b4a8581215] /Não presisa
[color=darkblue:b4a8581215]ReadLn(TEXTO,LINHA); [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]Memo1.Lines.Add:=LINHA; [/color:b4a8581215] /[color=red:b4a8581215]Errado[/color:b4a8581215], o correto é: Memo1.Lines.Add(LINHA);
[color=darkblue:b4a8581215]end;[/color:b4a8581215]
[color=darkblue:b4a8581215]Endereco:=FileListBox1.FileName; [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]Memo1.Lines.LoadFromFile(Endereco); [/color:b4a8581215] /OK, carrega o arequivo no memo
[color=darkblue:b4a8581215]Label2.Caption:=FileListBox1.FileName; [/color:b4a8581215] /OK
até aqui ele abre o arquivo e coloca no memo, se for só isso não presisa da parte que está para baixo que funciona sem ela.
[color=darkblue:b4a8581215]AssignFile(TEXTO,Endereco); [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]Reset(TEXTO); [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]while not Eof(TEXTO) do [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]begin [/color:b4a8581215]
[color=darkblue:b4a8581215]LINHA := ´´; [/color:b4a8581215] /Não presisa
[color=darkblue:b4a8581215]ReadLn(TEXTO,LINHA); [/color:b4a8581215] /OK
[color=darkblue:b4a8581215]Memo1.Lines.Add:=LINHA; [/color:b4a8581215] /[color=red:b4a8581215]Errado[/color:b4a8581215], o correto é: Memo1.Lines.Add(LINHA);
[color=darkblue:b4a8581215]end;[/color:b4a8581215]
Responder
Gostei + 0
19/08/2003
Host
Valeu!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)