Commit 74c56e13 authored by Michele's avatar Michele

bug: quando richiesta eliminazione pilota nel messaggio non compariva il nome

parent 5ba33568
......@@ -489,8 +489,8 @@ Public Sub mnu_elimina_Click()
Dim numero As Integer
If ListBox1.text = "" Then Return
If (Message.Question((("Eliminare il pilota ") & D.Piloti[numero].nome & "?"), ("Si"), ("no")) = 2) Then Return
numero = Val(Left(ListBox1.text, 3))
If (Message.Question((("Eliminare il pilota ") & D.Piloti[numero].nome & "?"), ("Si"), ("no")) = 2) Then Return
F.add_cronologia(numero, ("Eliminazione da lista"))
D.Piloti[numero].annulla()
ListBox1.Remove(ListBox1.index)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment