Quero colocar um arquivo texto em TMemo, help me?

Delphi

19/08/2003

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;


Host

Host

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

19/08/2003

[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]


GOSTEI 0
Host

Host

19/08/2003

Valeu!!


GOSTEI 0
POSTAR