Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/arrays.sct

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 287
Width = 337
DoCreate = .T.
Caption = "Use Array Handling"
Visible = .T.
HelpContextID = 230
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 252
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 252
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 4
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 312
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "The Arraylib library has some useful methods to expand array handling functionality. This example uses ACOLSCAN() to search a specific column in the following array."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 5
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 7
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 252
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 6
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
iPROCEDURE Init
DODEFAULT()
DIMENSION THIS.MYARRAY[3,3]
THIS.MYARRAY[1,1] = "AAA"
THIS.MYARRAY[2,1] = "BBB"
THIS.MYARRAY[3,1] = "CCC"

THIS.MYARRAY[1,2] = "DDD"
THIS.MYARRAY[2,2] = "AAB"
THIS.MYARRAY[3,2] = "FFF"

THIS.MYARRAY[1,3] = "GGG"
THIS.MYARRAY[2,3] = "HHH"
THIS.MYARRAY[3,3] = "AAC"

THIS.List1.RowSource = "THISFORM.MyArray"

ENDPROC
9��   f�%����U\	��C�����������T����������AAA��T����������BBB��T����������CCC��T����������DDD��T����������AAB��T����������FFF��T����������GGG��T����������HHH��T����������AAC��#T�����THISFORM.MyArray��UTHISMYARRAYLIST1	ROWSOURCEInit,��1�a���������22^) ^myarray[1,0] 
	_arraylib..\..\..\ffc\_utility.vcxcustom	_arraylibFrmsolution1*Top = 252
Left = 72
Name = "_arraylib"
listboxlistboxList1Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
ColumnCount = 3
ColumnWidths = "50,50,50"
RowSourceType = 5
Height = 72
ColumnLines = .F.
Left = 12
TabIndex = 1
Top = 84
Width = 312
Name = "List1"

commandbutton
commandbuttonCommand1Frmsolution1�Top = 168
Left = 12
Height = 23
Width = 108
FontName = "MS Sans Serif"
FontSize = 8
Caption = '\<Scan for "AA"'
TabIndex = 2
ZOrderSet = 13
Name = "Command1"
�PROCEDURE Click
#DEFINE SCAN1_LOC "Scan in only column "
#DEFINE SCAN2_LOC " found: "

LOCAL myarray,lnCol,cSaveExact
DIMENSION myarray[1]
ACOPY(THISFORM.MYARRAY,myarray)
lnCol = THISFORM.OptionGroup1.Value
cSaveExact = SET("EXACT")
SET EXACT OFF
lnRow = THISFORM._ARRAYLIB.ACOLSCAN(@myarray,"AA",lnCol)
MESSAGEBOX(SCAN1_LOC+TRANS(lnCol)+SCAN2_LOC+myarray[lnRow])
SET EXACT &cSaveExact
ENDPROC
�� ��
%\�k�U������
�������C�����
��T�������T��C�EXACTv��G�!T��C��AA������;��C�Scan in only column C�_� found: C���x��SET EXACT &cSaveExact
U	MYARRAYLNCOL
CSAVEEXACTTHISFORMOPTIONGROUP1VALUELNROW	_ARRAYLIBACOLSCANClick,��1��A1Aa��1�)�optiongroupoptiongroupOptiongroup1Frmsolution1�ButtonCount = 3
Value = 1
Height = 65
Left = 132
Top = 168
Width = 73
TabIndex = 3
Name = "Optiongroup1"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "Column \<1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 61
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "Column \<2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 61
Option2.Name = "Option2"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.Caption = "Column \<3"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 61
Option3.Name = "Option3"
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Height = 287
Width = 337
DoCreate = .T.
Caption = "Use Array Handling"
Visible = .T.
HelpContextID = 1231616
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 252
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 252
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 4
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 312
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "The Arraylib library has some useful methods to expand array handling functionality. This example uses ACOLSCAN() to search a specific column in the following array."
Label1.Height = 42
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 5
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 7
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 252
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 6
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"