runerror (102) fichier non affecté?

Question

begin 
reset(f); 
    assignfile(f, 'data.txt'); 
    Reset(f); 
    found:= false; 
    search := edit1.text ; 
    repeat 
    read(f, phone) ; 
    read(f, cusfname); 
    read(f, adress); 
    found:= search = phone 
    until eof(f) or found; 
    if found then 
    memo1.append(phone); 
    memo1.append(cusfname); 
    memo1.append(adress); 
    closefile(f) ; 
    if not found then showmessage('member not found'); 

Lorsque j'exécute ceci, j'obtiens un fichier runerror (102) non assigné ??????? p.s J'ai affecté les variables dans la procédure publiquement.

Answer 1

D'abord reset(f) est erroné, vous affectez à f dans la ligne suivante, il n'est donc pas affecté avant.