Error changing old database data

Question

With the help of this reply I was able to edit the data I enter in the database, but the old data that is already registered, when I try to change the registration, the program continues to close alone and when debugging displays the following error message.

And if I keep debugging the mistake it becomes:

I was debugging the code and the error is occurring in procedure Upload_ftp, mine procedure this way:

procedure TfrmCriarArquivo.Envio_ftp(grupo, cliente: string);
begin
  with FTP do try
    Username := frmMenu.usuario;
    Password := frmMenu.senha;
    Host := frmMenu.endereco;
    Port := StrtoInt(frmMenu.porta);
    Connect;
    try
      ChangeDir(grupo);
    except
      FTP.MakeDir(grupo);
      ChangeDir(grupo);
    end;
    try
      FTP.Put('dados.ini', 'dados.ini', false);
    except
    end;
    try
      ChangeDir(grupo + '/' + cliente);
    except
      FTP.MakeDir(grupo + '/' + cliente);
      ChangeDir(grupo + '/' + cliente);
    end;
  except
    application.Terminate;
  end;
  try
    FTP.Put(cliente + '.xml', cliente + '.xml', False);
    FTP.Put('Tags' + '_' + cliente + '.txt', 'Tags' + '_' + cliente + '.txt', false);
  finally
    FTP.Disconnect;
  end;
  DeleteFile(cliente + '.xml');
  DeleteFile('Tags' + '_' + cliente + '.txt');
  DeleteFile('dados.ini');
end; 

Remembering that this only happens when I try to change the old bank records.

New Error:

and how was the procedure after the change:

with FTP do try
    Username := frmMenu.usuario;
    Password := frmMenu.senha;
    Host := frmMenu.endereco;
    Port := StrtoInt(frmMenu.porta);
    Connect;
    try
      ChangeDir(grupo);
    except
      FTP.MakeDir(grupo);
      ChangeDir(grupo);
    end;
    try
      FTP.Put('dados.ini', 'dados.ini', false);
    except
    end;
    try
      ChangeDir(grupo + '/' + cliente);
    except
      FTP.MakeDir(grupo + '/' + cliente);
      ChangeDir(grupo + '/' + cliente);
    end;
  except
    application.Terminate;
  end;

Answer 1

EConvertError (the exception indicated in your message) usually happens when you try to convert one type of value into another. In your case it’s happening because of the line:

StrtoInt(frmMenu.porta)

StrToInt is a method that converts a string to an integer number. As commented, frmMenu.porta contains the value ''(empty string). As the method cannot convert '' for a number, this error happens.

To resolve, identify if it is indeed possible frmMenu.porta be empty.

• If yes, check the value of the field before conversion and treat it:

  if frmMenu.porta = '' then
    // Por exemplo, usar uma porta padrão...
    Port := 20
  else
    Port := StrtoInt(frmMenu.porta);
  

• Otherwise, identify why the field frmMenu.porta be empty and resolve this situation.