Fórum Erro corrupdet #506835
09/01/2015
0
Boa tarde Pessoal
Preciso de um help estou passando meu projeto de delphi 5 para XE5, só que esta dando erro : System unit out of date or corrupted: missing '@assign', isso ocorre no meu código aqui rewrite(Arquivo, Porta);
Alguém já passou por isso ?
HELP!
Preciso de um help estou passando meu projeto de delphi 5 para XE5, só que esta dando erro : System unit out of date or corrupted: missing '@assign', isso ocorre no meu código aqui rewrite(Arquivo, Porta);
Alguém já passou por isso ?
HELP!
Fabianoluizdb
Curtir tópico
+ 0
Responder
Posts
16/03/2015
Raphael Morsch
Olá fldb...
Isso acontece pq o método Rewrite mudou de assinatura. Suportando apenas o parâmetro TextFile ou ainda um Parâmetro TextFile e um segundo parâmetro do tipo Integer (referente ao tamanho do arquivo).
Para que seu código passe a funcionar use o AssignFile e depois o Rewrite, ex.:
AssignFile(Arquivo, Porta);
Rewrite(Arquivo);
Espero que tenha sido útil.
Isso acontece pq o método Rewrite mudou de assinatura. Suportando apenas o parâmetro TextFile ou ainda um Parâmetro TextFile e um segundo parâmetro do tipo Integer (referente ao tamanho do arquivo).
Para que seu código passe a funcionar use o AssignFile e depois o Rewrite, ex.:
AssignFile(Arquivo, Porta);
Rewrite(Arquivo);
Espero que tenha sido útil.
Responder
Gostei + 0
16/03/2015
Thiago Santana
Olá fldb...
Isso acontece pq o método Rewrite mudou de assinatura. Suportando apenas o parâmetro TextFile ou ainda um Parâmetro TextFile e um segundo parâmetro do tipo Integer (referente ao tamanho do arquivo).
Para que seu código passe a funcionar use o AssignFile e depois o Rewrite, ex.:
AssignFile(Arquivo, Porta);
Rewrite(Arquivo);
Espero que tenha sido útil.
Isso acontece pq o método Rewrite mudou de assinatura. Suportando apenas o parâmetro TextFile ou ainda um Parâmetro TextFile e um segundo parâmetro do tipo Integer (referente ao tamanho do arquivo).
Para que seu código passe a funcionar use o AssignFile e depois o Rewrite, ex.:
AssignFile(Arquivo, Porta);
Rewrite(Arquivo);
Espero que tenha sido útil.
Exatamente isso que o Raphael postou!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)