如何从Delphi中的TGroupBox获取复选框值？

Question

I have a groupbox and three check boxes in a form. And I want to get the user selected values in an array of values and If he doesn't selects one then the default enabled checkbox value needs to be selected into an array.

var selectedValues:String;
selectedValues:= getSelectedCheckboxValue(); //Here I want to pass the  selected values to store it into an array
function getSelectedCheckboxValue(): string;
begin
 var retArr:array[1..3] of string;
 return retArr;
end;

Is my approach correct? Or Is there an other way to do it.

Answer 1

I belive I've guessed what you are asking about

Try this function:

function GetSelectedCheckboxValue(CheckListBox: TCheckListBox): string;
var
  i: Integer;
begin
  Result := '';

  for i := 0 to CheckListBox.Count - 1 do
    if CheckListBox.Checked[i] then
      Result := Result + CheckListBox.Items[i] + ',';


  System.Delete(Result, Length(Result), 1);
end;

and call it like this:

  Caption := GetSelectedCheckboxValue(CheckListBox1);

Or if you want the result in an Array :

function GetSelectedCheckboxValue_Take2(CheckListBox: TCheckListBox): TStringDynArray;
var
  i: Integer;
  ResultArray: TStringDynArray;
begin
  ResultArray := nil;
  for i := 0 to CheckListBox.Count - 1 do
    if CheckListBox.Checked[i] then
    begin
      SetLength(ResultArray, Length(ResultArray) + 1);
      ResultArray[Length(ResultArray) - 1] := CheckListBox.Items[i];
    end;

  Result := ResultArray;
end;

The last part

And If he doesn't selects one then the default enabled checkbox value needs to be selected into an array.

Makes no sense what so ever.