Found a strange thing:
EditCourier(courier_x as integer, courier_y as integer, edit_courier as t_Courier )
EditCourier(courier_x as integer, courier_y as integer, edit_courier as t_Courier )
and
EditCourier(edit_courier as t_Courier, courier_x as integer, courier_y as integer )
give a different result
t_Courier is my type,
in first case - call this function is smooth, but after exit the function vanishes global array data
in second case - system halted.
function EditCourier for example
function testcour(testcour_courier_x as integer, testcour_courier_y as integer, t as t_Courier)
testcour_courier as t_Courier
testcour_shift_x as integer
dim testcour_title[15] as string
testcour_title[1] = "Unique Code: "
testcour_title[2] = " Name: "
testcour_title[3] = " Familie: "
testcour_title[4] = " Patronimic: "
testcour_title[5] = " PostCode: "
testcour_title[6] = " City: "
testcour_title[7] = " Street: "
testcour_title[8] = " House: "
testcour_title[9] = " Building: "
testcour_title[10] = " Office: "
testcour_title[11] = " Company: "
testcour_title[12] = "ContactName: "
testcour_title[13] = " E_mail: "
testcour_title[14] = " Phone1: "
testcour_title[15] = " Phone2: "
t = testcour_courier
endfunction t
my mind is in a fog!