Fórum Pegar dados dum TXT e jogar num array.. como???????? #290951
06/08/2005
0
Tenho um arquivo .TXT com n linhas.. cada linha contem um numero natural... preciso passar agora do arquivo txt para uam array no delphi.. como faco?
Eduarno
Curtir tópico
+ 0
Responder
Posts
06/08/2005
Rjun
procedure LeArquivo;
var
i: Integer;
Arquivo: TStringList;
Matriz: Array Of Double;
begin
Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile(´Arquivo.Txt´);
SetLength(Matriz, Arquivo.Count);
for i := 0 to Arquivo.Count - 1 do
Matriz[i] := StrToFloat(Arquivo.Strings[i]);
finally
FreeAndNil(Arquivo);
end;
end;
Responder
Gostei + 0
07/08/2005
Eduarno
viu amigo... ele pega a ´por linha´ do txt e oga na linha o vetor???? um abraco e obrigado por responder!
Responder
Gostei + 0
08/08/2005
Rjun
Sim, ele pega cada linha e joga num vetor. Não fiz verificações se os valores são válidos.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)