Fórum Duvida com StringList #296688
22/09/2005
0
porque só estou pegando as duas primeiras linhas do arquivo ?
var arq: TStringList; i : Integer; begin arq := TStringList.Create; arq.LoadFromFile(´c:\08303001.R01´); try for i := 0 to arq.Count - 1 do begin Memo1.Lines.Add(arq.Strings[i]); end; finally FreeAndNil(arq); end; end;
Fabiano Góes
Curtir tópico
+ 0Posts
22/09/2005
Rjun
Gostei + 0
22/09/2005
Fabiano Góes
eu carreguei outro arquivo e deu certo.
algum caracter do outro arquivo que está impedindo de passar para as outras linhas
:?
Gostei + 0
22/09/2005
Bmetric
Gostei + 0
22/09/2005
Martins
eu carreguei outro arquivo e deu certo.
algum caracter do outro arquivo que está impedindo de passar para as outras linhas
:?[/quote:bb52401df7]
Pode ser, seu código está correto, se vc pudesse postar parte do conteúdo desse arquivo, seria melhor, poderiamos ver se tem algo anormal, o melhor seriam os dois arquivos, o q vc testou e funcionou e o outro q só envia 2 linhas.
Martins
Gostei + 0
22/09/2005
Martins
Pode ser mesmo algum caractere do seu arquivo.
Gostei + 0
23/09/2005
Fabiano Góes
H971002200100000101000000000000000000000000000000000000000000* E000001000000000000000065000003022601858388653411618301 0000 E000002000000000000000050001021284301897107650330220001
o código só me devolvia as duas primeiras linhas !
Gostei + 0
23/09/2005
Massuda
Como os fontes do Windows geralmente inserem esse quadradinho para uma série de caracteres não imprimíveis, fica difícil dizer qual caractere está poluindo seus dados (só olhando no arquivo).
Se esse arquivo supostamente deveria conter apenas texto, seria bom você verificar o que ocorreu (pode ser bug no programa que gerou o arquivo ou algum problema no armazenamento do arquivo).
Outra possibilidade é que esse arquivo tenha sido aberto (e salvo) em algum editor de texto que inseriu quebras de linha.
Gostei + 0
23/09/2005
Martins
procedure TForm1.Button1Click(Sender: TObject); var arq: TStringList; i : Integer; begin arq := TStringList.Create; arq.LoadFromFile(´c:\Teste.txt´); try for i := 0 to arq.Count - 1 do begin Memo1.Lines.Add(´Linha: ´IntToStr(i)´ - ´ arq.Strings[i]); end; finally FreeAndNil(arq); end; end;
[b:f54f0fc8e8]Teste.txt[/b:f54f0fc8e8] é o arquivo feito pelo bloco de notas com os dados q foram passados.
vc poderia passar o arquivo por e-mail, caso não seja confidêncial.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)