Fórum Erro em pesquisa de dados de arquivos tipados #222310

   TCadastro = record
    Nome: string[20];
    Fone: string[08];
    UF: string[02];
    Salario: real;
  end;

... // O arquivo ja foi aberto em outro evento e será fechado em outro evento.

procedure TForm1.BTN_05Click(Sender: TObject);
var
  FStr: TStrings;
  k: integer;
begin
  // Cria uma variavel do tipo TStrings que ira armazenar dados a serem exibidos no GRID
  FStr := TStringList.Create;

  // Move o ponteiro para o primeiro registro
  Seek (FCadastro, 0);

  // Enquanto não chegar ao fim do arquivo
  while not EOF (FCadastro) do
  begin
    Read (FCadastro, Cadastro);           
    if Copy (Cadastro.Nome, 0, Length (EDT_01.Text)) = EDT_01.Text then
      FStr.Append (IntToStr (FilePos (FCadastro)));
  end;
  
  // Defino o numero de linha do StringGrid igual a quantidade de registros encontrados  + 1 
  Grid.RowCount := FStr.Count + 1;

  { Aqui espero que os indices tenham sido armazenados no conteudo da TStrings
  Ex:  FStr.strings[0] contém 4 porque um dos nomes procurados está na posicao 4 do arquivo tipado;
  FStr.strings[1] contem 7 porque um dos nomes procurados está na posicao 7 do arquivo tipado;
  No loop abaixo quero exibir SOMENTE os indice que estiverem armazenados no FStr}
  
  for k := 1 to FStr.Count do
  begin
    // Move o ponteiro para a posição cujo valor esta armazenada no conteudo de FStr
    Seek (FCadastro, StrToInt (FStr.Strings[k-1]));
    // Entao leio
    Read (FCadastro, Cadastro);
    Grid.Cells[0,k] := Cadastro.Nome;
    Grid.Cells[1,k] := Cadastro.Fone;
    Grid.Cells[2,k] := FloatToStr (Cadastro.Salario);
    Grid.Cells[3,k] := Cadastro.UF;
  end;
  FStr.Free;
end;