Import data from a TXT and play required positions in Stringgrid

Question

Follow the code I developed, along with my co-worker.

    procedure TfrmGrid.Button1Click(Sender: TObject);
    var
      arq: TStringGrid;
      txt: TextFile;
      c, l, treg : integer;
      lTemp: String;
    begin
      treg := 0;
      c:=0;
      l:=0;
      AssignFile(txt, Label1.Caption);
      Reset(txt);
      while not eof(txt) do
        begin
          Readln(txt, lTemp);
          if (copy(lTemp, 1, 3) = 'E14') or (copy(ltemp, 1, 3) = 'E15') then
            inc(treg);
        end;
      while not eof(txt) do
        begin
          Readln(txt, lTemp);
          if (copy(lTemp, 1, 3)= 'E14') then
          c:= c+1;
          copy(arq[c][l],1,3);
        end;
      CloseFile(txt);

      ShowMessage('total de linhas: '+IntToStr(treg));
    end;

What I need is just to show the lines I rescued from TXT to inform on TStringGrid.

What would I be missing there?

Answer 1

Let’s go in pieces:

First, you do not create the TStringGrid at runtime. Create the component in time design.

According to, the syntax of the command copy(arq[c][l],1,3);, if I got it right, it’s wrong. It should be copy(Arq.Cells[c,l],1,3);

Third, you’re not doing anything with the TStringGrid. Neither populating nor using its data. The copy command created by you is not assigned to anything or anyone.

Quarter, the error reported in the comment has nothing to do with the posted Procedure (which by itself would not compile for other reasons). The error quoted is probably elsewhere in Unit.

Finally, follow the corrected process:

procedure TForm1.Button1Click(Sender: TObject);
var
  txt: TextFile;
  c, l, treg : integer;
  lTemp: String;
begin
  treg := 0;
  c:=0;
  l:=1;
  AssignFile(txt, 'c:\teste.txt');
  Reset(txt);
  while not eof(txt) do
  begin
    Readln(txt, lTemp);
    if (copy(lTemp, 1, 3) = 'E14') or (copy(ltemp, 1, 3) = 'E15') then
      inc(treg);
  end;
  while not eof(txt) do
  begin
    Readln(txt, lTemp);
    if (copy(lTemp, 1, 3)= 'E14') then
      c:= c+1;
    copy(Arq.Cells[c,l],1,3); //??
  end;
  CloseFile(txt);
  ShowMessage('total de linhas: '+IntToStr(treg));
end;