How to put an array as a combo box item

[mhcha]

Hello, if there is an array as below, I would like to put it in the combo box item as many as the number of those arrays.

Code: Select all

0: SHEETARRAY_1_1=No.
0: SHEETARRAY_1_2=Name
0: SHEETARRAY_1_3=Test
0: SHEETARRAY_1_4=
0: SHEETARRAY_1_COUNT=4
0: SHEETARRAY_2_1=A
0: SHEETARRAY_2_2=Name1
0: SHEETARRAY_2_3=Test1
0: SHEETARRAY_2_4=
0: SHEETARRAY_2_COUNT=4
0: SHEETARRAY_3_1=B
0: SHEETARRAY_3_2=Name2
0: SHEETARRAY_3_3=Test2
0: SHEETARRAY_3_4=
0: SHEETARRAY_3_COUNT=4
0: SHEETARRAY_4_1=C
0: SHEETARRAY_4_2=Name3
0: SHEETARRAY_4_3=Test3
0: SHEETARRAY_4_4=
0: SHEETARRAY_4_COUNT=4
0: SHEETARRAY_5_1=D
0: SHEETARRAY_5_2=Name4
0: SHEETARRAY_5_3=Test4
0: SHEETARRAY_5_4=
0: SHEETARRAY_5_COUNT=4
0: SHEETARRAY_6_1=E
0: SHEETARRAY_6_2=Name5
0: SHEETARRAY_6_3=Test5
0: SHEETARRAY_6_4=
0: SHEETARRAY_6_COUNT=4
0: SHEETARRAY_7_1=
0: SHEETARRAY_7_2=
0: SHEETARRAY_7_3=
0: SHEETARRAY_7_4=
0: SHEETARRAY_7_COUNT=4
0: SHEETARRAY_COUNT=7

I'd like to make all the values of SHEETARRAY_%CountArray%_2 a combo box item out of these. Is there a good way?

[Grovkillen]

You want them in one combo box or multiple combo boxes?

[mhcha]

You want them in one combo box or multiple combo boxes?

Thank you for your interest.

I want to put Name1, Name2, Name3, Name4, and Name5 as items in one combo box. (As many as the number of arrays)

[Grovkillen]

Here's an example:

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Left = 2496
  Top = -1121
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'CustomDialog'
  ClientHeight = 211
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object MSComboBox1: tMSComboBox
    Left = 130
    Top = 47
    Width = 145
    Height = 21
    TabOrder = 0
    Text = 'MSComboBox1'
  end
end
EndDialog>Dialog1

//THIS IS WHAT YOU WANT TO DO TO POPULATE A STRING WITH COMBOBOX SYNTAX DATA
Let>ITEM_LIST=
Let>k=0
Repeat>k
  Let>k=k+1
  Let>TEMP_name=SHEETARRAY_%k%_2
  ConCat>ITEM_LIST,%CRLF%%TEMP_name%
Until>k=SHEETARRAY_COUNT
Trim>ITEM_LIST,ITEM_LIST

//Add the data to the combobox
SetDialogProperty>Dialog1,MSComboBox1,ListText,ITEM_LIST

//Set which name/item you want to be pre-selected, 0 is the first one.
SetDialogProperty>Dialog1,MSComboBox1,ItemIndex,0


Show>Dialog1,r

[mhcha]

Here's an example:

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Left = 2496
  Top = -1121
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'CustomDialog'
  ClientHeight = 211
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object MSComboBox1: tMSComboBox
    Left = 130
    Top = 47
    Width = 145
    Height = 21
    TabOrder = 0
    Text = 'MSComboBox1'
  end
end
EndDialog>Dialog1

//THIS IS WHAT YOU WANT TO DO TO POPULATE A STRING WITH COMBOBOX SYNTAX DATA
Let>ITEM_LIST=
Let>k=0
Repeat>k
  Let>k=k+1
  Let>TEMP_name=SHEETARRAY_%k%_2
  ConCat>ITEM_LIST,%CRLF%%TEMP_name%
Until>k=SHEETARRAY_COUNT
Trim>ITEM_LIST,ITEM_LIST

//Add the data to the combobox
SetDialogProperty>Dialog1,MSComboBox1,ListText,ITEM_LIST

//Set which name/item you want to be pre-selected, 0 is the first one.
SetDialogProperty>Dialog1,MSComboBox1,ItemIndex,0


Show>Dialog1,r

Thank you!
I'll try it today.

[mhcha]

Here's an example:

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Left = 2496
  Top = -1121
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'CustomDialog'
  ClientHeight = 211
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object MSComboBox1: tMSComboBox
    Left = 130
    Top = 47
    Width = 145
    Height = 21
    TabOrder = 0
    Text = 'MSComboBox1'
  end
end
EndDialog>Dialog1

//THIS IS WHAT YOU WANT TO DO TO POPULATE A STRING WITH COMBOBOX SYNTAX DATA
Let>ITEM_LIST=
Let>k=0
Repeat>k
  Let>k=k+1
  Let>TEMP_name=SHEETARRAY_%k%_2
  ConCat>ITEM_LIST,%CRLF%%TEMP_name%
Until>k=SHEETARRAY_COUNT
Trim>ITEM_LIST,ITEM_LIST

//Add the data to the combobox
SetDialogProperty>Dialog1,MSComboBox1,ListText,ITEM_LIST

//Set which name/item you want to be pre-selected, 0 is the first one.
SetDialogProperty>Dialog1,MSComboBox1,ItemIndex,0


Show>Dialog1,r

It works perfectly.
Thank you.

[Grovkillen]

Glad to have helped