F�rum ler um arquivo txt DELPHI #603591

11/07/2019

Gostaria de LER um arquivo txt que cont�m uma matriz 3x3 e jogar o conte�do em um stringGrid, algu�m poderia me ajudar, eu n�o tenho muito conhecimento em delphi, li alguns posts, consultei alguns arquivos, mas n�o encontrei nada relacionado a matrizes.

Maria Taisa

Curtir t�pico

+ 0

Responder

Post mais votado

11/07/2019

Boa tarde!

Voc� pode usar a classe TStringList, que cont�m um m�todo chamado LoadFromFile (s� passar o caminho do arquivo), ele vai te retornar uma lista com todas as linhas desse arquivo, depois como voc� disse o ESPA�O EM BRANCO est� presentes em cada n�mero da sua matriz, voc� usa a fun��o SPLIT (que nada mais SEPARA a linha a cada ESPA�O, transformando em um Array<String>), depois s� percorrer o array que sobrou e adicionar no seu StringGrid.
Abaixo est� o c�digo que pode ajudar:

P.S: N�o cheguei a testar complemente o c�digo com um arquivo de texto e tals, mas a sintaxe ta correta.

procedure OpenAndReadFile(const AFilePath: UnicodeString);
var
   Loop: Integer;
   StringList: TStringList;
   ArrayStr: TArray<String>;
   I: Integer;
begin
   StringList := TStringList.Create;
   try
      StringList.LoadFromFile(AFilePath);

      for Loop := 0 to StringList.Count - 1 do
      begin
         ArrayStr := StringList[Loop].Split([' ']);

         for I := Low(ArrayStr) to High(ArrayStr) do
         begin
            StringGrid.Cell[Loop, I] := ArrayStr[I];
         end;
      end;
   finally
      FreeAndNil(StringList);
   end;

Rafael Bosco

Responder

Gostei + 1

Mais Posts

11/07/2019

Emerson Nascimento

apresente ao menos uma parte do conte�do do arquivo, e diga o que e como voc� espera que seja o resultado da extra��o de dados.

Responder

Gostei + 0

11/07/2019

Maria Taisa

apresente ao menos uma parte do conte�do do arquivo, e diga o que e como voc� espera que seja o resultado da extra��o de dados.

o arquivo vai conter uma matriz como essa por exemplo

2 2 2
0 1 2
3 1 0

eu n�o irei alterar o arquivo, ser� somente leitura, no caso eu queria saber como fazer para colocar
cada caractere que tem no arquivo no stringGrind.cell[j,i] := string; e como ignorar os espa�os em branco.

o resultado que quero � a matriz do arquivo preencher o stringGrind.

Desde j� agrade�o.

Responder

Gostei + 0

11/07/2019

Maria Taisa

a extra��o de dados ser� somente os elementos num�ricos da matriz que tem no arquivo txt .

Responder

Gostei + 0

12/07/2019

Maria Taisa

procedure OpenAndReadFile(const AFilePath: UnicodeString);
var
   Loop: Integer;
   StringList: TStringList;
   ArrayStr: TArray<String>;
   I: Integer;
begin
   StringList := TStringList.Create;
   try
      StringList.LoadFromFile(AFilePath);

      for Loop := 0 to StringList.Count - 1 do
      begin
         ArrayStr := StringList[Loop].Split([' ']);

         for I := Low(ArrayStr) to High(ArrayStr) do
         begin
            StringGrid.Cell[Loop, I] := ArrayStr[I];
         end;
      end;
   finally
      FreeAndNil(StringList);
   end;

Muito Obrigada Rafael, deu certo.

Responder

Gostei + 0

12/07/2019

Maria Taisa

procedure OpenAndReadFile(const AFilePath: UnicodeString);
var
   Loop: Integer;
   StringList: TStringList;
   ArrayStr: TArray<String>;
   I: Integer;
begin
   StringList := TStringList.Create;
   try
      StringList.LoadFromFile(AFilePath);

      for Loop := 0 to StringList.Count - 1 do
      begin
         ArrayStr := StringList[Loop].Split([' ']);

         for I := Low(ArrayStr) to High(ArrayStr) do
         begin
            StringGrid.Cell[Loop, I] := ArrayStr[I];
         end;
      end;
   finally
      FreeAndNil(StringList);
   end;

Muito Obrigada Rafael, deu certo.

Responder

Gostei + 0