Программа delphi (2010) зависает при чтении текстового файла - PullRequest
Новая
       28

Программа delphi (2010) зависает при чтении текстового файла

0 голосов
/ 05 ноября 2019

Я использую систему идентификации пользователей, чтобы не повторять каких-либо пользователей, но после выявления столкновения Delphi полностью зависает 

procedure TForm2.Button2Click(Sender: TObject);
  var cool : textfile ;
  svolunteer,scool,sline : string ;
  ipos : integer ;
begin
  svolunteer := string(edtname.text) + ' ' + string(edtAge.Text)  ;

  assignfile(cool, 'cool.txt' )        ;
  try
    reset(cool)
  except
    ShowMessage('file not found') ;
    exit ;
  end;

  while not eof(cool) do
  begin
    reset(cool) ;
    readln(cool, scool) ;
    ipos := pos(',' , sline)        ;
    scool := copy(sline ,1,ipos -1 ) ;
    Delete( sLine,1, iPos -1);
    if svolunteer = scool then begin
      ShowMessage('Username taken') ;
      closefile(cool)
    end;
  end;
  begin
    append(cool) ;
    writeln(cool, svolunteer) ;
    closefile(cool)             ;
  end;
  Button2.Enabled := false ;
end;

Я ждал несколько минут подряд, но, похоже, ничего не исправило

...