Search options

I am using below code to get the selected Items It works fine in case of single select combo box and also for individual selections in multiselect combobox. But not working fine with using Select All option in the multi select Combo Box. Any suggestions ?

function getComboBoxSelections(cb : TdbComboBox) : Variant;
var
  i, counter : integer = 0;
  arr : array of string;
begin
  SetLength(arr, cb.SelectedCount);
  if cb.SelectedCount > 0 then
  begin
    for i := 0 to cb.Items.Count-1 do
    begin
        if cb.ItemsChecked[i] then
        begin
          arr[counter] := cb.Items[i];
          Inc(counter);
        end;
    end;
  end;
  result := arr;
end;

procedure frmMain_OnShow (Sender: TObject; Action: string);
begin
           frmMain.ComboBox1.MultiSelect := True;
           frmMain.ComboBox1.Items.Add('All');
           frmMain.ComboBox1.Items.Add('a');
           frmMain.ComboBox1.Items.Add('b');
end;

procedure frmMain_ComboBox1_OnChange (Sender: TObject);
var
v:variant;
begin
          v := getComboBoxSelections(frmMain.ComboBox1);
end;

I am new to pascal but i am trying to learn from online resources. I am trying to use custom types.

But they are showing error in MVD. Guide me on this.

type
   TDay = (Mon=1, Tue, Wed, Thu, Fri, Sat, Sun);   // Enumeration values

type
  atom = record
      electrons: integer;
      neutrons: integer;
      protons: integer;
  end; 

 var
   today   : TDay;
   x : atom;

References:

Enumeration - http://www.delphibasics.co.uk/Article.asp?Name=Sets

Record - http://www.delphibasics.co.uk/Article.asp?Name=Records

I am trying to have script separated by forms and separate script to maintain common functions/procedures.

But its showing error. Have all the 3 files in 'Script' folder of the project. Please advice me on this.

---------------
file - script.pas
----------------
uses 'form1.pas', 'common.pas';
//uses 'common.pas';

var
  sHello: string;

begin
  // just for example
  sHello := 'Script said hello!';
  HelloWorld(sHello);
end.     

----------------
file - common.pas
----------------
procedure HelloWorld (s: string);
begin
  ShowMessage(s);
end;

---------------
file - form1.pas
----------------
uses 'common.pas';

procedure cb_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
begin
     HelloWord('Hello from form1');
end;

I am having 2 tables as follows

Table - Fields - Sample Values
------------------------------------------
Pesron - name, phone_type, number - William, Mobile, 1234
Phone_Type - type - 1) Mobile 2) Homephone

Phone type is a combo box in the form. But i want to save the phone type value in person table not its id.
For example, I want to save the Phone type value 'Mobile' to be saved in Person table rather than its id '1'.

I know this can be achieved using coding. Is there any way to achieve this without coding ?

If not possible, I am looking forward to this feature in future versions of MVD.