Pegar dados dum TXT e jogar num array.. como????????

Delphi

06/08/2005

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

Eduarno

Curtidas 0

Respostas

Rjun

Rjun

06/08/2005

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;



GOSTEI 0
Eduarno

Eduarno

06/08/2005

viu amigo... ele pega a ´por linha´ do txt e oga na linha o vetor???? um abraco e obrigado por responder!


GOSTEI 0
Rjun

Rjun

06/08/2005

Sim, ele pega cada linha e joga num vetor. Não fiz verificações se os valores são válidos.


GOSTEI 0
POSTAR