Fórum O que ah de errado nesse codigo, me ajude por favor! #217761

 Type
  Senha= array[1..50] of record  // Total de 50 registros por exemplo
           Codigo: integer;
           Numero: integer;

         end;
var
FSenha: File of Senha;
UmaSenha: Senha;
Cod: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin

Cod:=strtoint(table1.FieldByName(´Codigo´).Asstring);
If FileExists(´Relatorio.txt´) then  // vê se o arquivo já existe
  begin
    AssignFile(Fsenha, ´senha.txt´);
    Append(FSenha);
    UmaSenha[Cod].Numero:=strtoint(table1.FieldByName(´Numero´).Asstring );

    write (FSenha, UmaSenha);
    CloseFile(FSenha);
    ShowMessage(´Os dados foram gravados com êxito!´);
  end
  else  // caso o arqivo não exista
  begin
    AssignFile(Fsenha, ´C:\HDI\senha.txt´);
    ReWrite(FSenha);
    UmaSenha[Cod].Numero:=strtoint(table1.FieldByName(´Numero´).Asstring );
    write (FSenha, UmaSenha);
    CloseFile(FSenha);
    ShowMessage(´Arquivo criado com êxito!´);
  end;

end;