AMSSpecialist

Seleccionado = ListBox.GetSelected("ListBox1");
-- Detecta si Seleccionado no es valor real o es nil.
if Seleccionado then
	-- Filtro para detectar si Num_Undo es nil o por la contra
	-- es ya un numero entonces se suma 1 a Num_Undo.
	if Num_Undo == nil then
		Num_Undo = 1;
	else
		Num_Undo = Num_Undo+1;
	end
	
	-- Loop para guardar los items en el archivo Undo.dat.
	Num_total = ListBox.GetCount("ListBox1");
	INIFile.SetValue("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo, "Total", Num_total);
	for count = 1, Num_total do
		Text_I = ListBox.GetItemText("ListBox1", count);
		Data_I = ListBox.GetItemData("ListBox1", count);
		INIFile.SetValue("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo, "Text"..count, Text_I);
		INIFile.SetValue("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo, "Data"..count, Data_I);
	end
	
	-- Y por ultimo se elimina el item deseado.
	ListBox.DeleteItem("ListBox1", Seleccionado[1]);
end

-- Detecta si existe el archivo que contiene los datos del undo.
if File.DoesExist("AutoPlay\\Docs\\Undo.dat") then
	-- Detecta si Num_Undo no es nil.
	if Num_Undo ~= nil then
		-- Loop para eliminar todos los items de la lista.
		Num_total_A = ListBox.GetCount("ListBox1");
		for count = 1, Num_total_A do
			ListBox.DeleteItem("ListBox1", 1);
		end
		-- Loop para añadir los items anteriores a la lista.
		Num_total_B = INIFile.GetValue("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo, "Total");
		for count = 1, Num_total_B do
			Text_I = INIFile.GetValue("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo, "Text"..count);
			Data_I = INIFile.GetValue("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo, "Data"..count);
			ListBox.AddItem("ListBox1", Text_I, Data_I);		
		end
		
		-- Elimina "Undo"..Num_Undo para que no restaure de nuevo estos datos.
		INIFile.DeleteSection("AutoPlay\\Docs\\Undo.dat", "Undo"..Num_Undo);
		-- Resta 1 a Num_Undo.
		Num_Undo = Num_Undo-1;
		-- Este filtro detecta si Num_Undo es igual o menos a 0 y lo fija en nil.
		if Num_Undo <= 0 then
			Num_Undo = nil;
		end
	else
		-- Este mesaje es lanzado cuando no existen undos.
		Dialog.Message("Información", "No existen datos que restaurar.");
	end
end