Account Data Saver ( ini Read , ini Write problem)

;=>> Inclue <<=
#include
#include
#include

;=>> GUI/Code <<=
$Form1 = GUICreate("Accountdata", 600, 250)
$hListView = GUICtrlCreateListView("Portal|Username|Password", 0, 0, 600, 250)
;_GUICtrlListView_SetExtendedListViewStyle($hListView,$LVS_EX_FULLROWSELECT)

$Menue_Main = GUICtrlCreateMenu("Main Options")
$Menue_Main_1 = GUICtrlCreateMenuItem("Add", $Menue_Main)
$Menue_Main_2 = GUICtrlCreateMenuItem("Delete All", $Menue_Main)
$Menue_Main_Loading = GUICtrlCreateMenu("Load")
$Menue_Load_1= GUICtrlCreateMenuItem("Load from .ini", $Menue_Main_Loading)
$Menue_Main_Saveing = GUICtrlCreateMenu("Save")
$Menue_Save_1 = GUICtrlCreateMenuItem("Save to .ini", $Menue_Main_Saveing)

$Menue_ListView = GUICtrlCreateContextMenu($hListView)
$Menue_ListView_1 = GUICtrlCreateMenuItem("Delete", $Menue_ListView)
_GUICtrlListView_SetColumnWidth($hListView, 0, 200)
_GUICtrlListView_SetColumnWidth($hListView, 1, 200)
_GUICtrlListView_SetColumnWidth($hListView, 2, 200)

_GUICtrlListView_RegisterSortCallBack($hListView)

GUISetState(@SW_SHOW)

$IniName = "Daten.ini"
;[Sektion]
;Key = value

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Menue_Main_1 ;=>> Add ...
$portal = InputBox("", "Please enter the Portal you are registered at")
$username = InputBox("", "Please enter a Username you are registered with")
$password = InputBox("", "Please enter a Password you are registered with")
GUICtrlCreateListViewItem($portal & '|' & $username & '|' & $password, $hListView)
Case $Menue_ListView_1 ;=>> Delete
_GUICtrlListView_DeleteItemsSelected($hListView)
Case $Menue_Main_2 ;=>> Delete All
_GUICtrlListView_DeleteAllItems($hListView)
Case $Menue_Save_1 ;=>> Save 2 INI
$count_of_items = _GUICtrlListView_GetItemCount($hListView)
For $i = 0 To $count_of_items - 1 Step +1
IniWrite($IniName, "Portal", $i, $portal)
IniWrite($IniName, "Username",$i, $username)
IniWrite($IniName, "Password",$i, $password)


Next
Case $hListView
_GUICtrlListView_SortItems($hListView, GUICtrlGetState($hListView))
EndSwitch
WEnd

;=>> Function <<=
Func _ArraySow($array)
For $i = 1 To UBound($array) - 1 Step +1
MsgBox(0, "", $i & ":" & @CRLF & $array[$i])
Next
EndFunc ;==>_ArraySow