4.15.6 AddString

AddString procedure

Prototype:	procedure AddString(const Label_ :string; const Size_ :integer; const Value_ :variant);
Description:	Adds a field into the value dialog to get a string value
Syntax:	vDlg.AddString(Label,Size,Value);
	Part	Description
	vDlg	A reference to an instance of a TValueDialogWrapper
	Label	Variable declared as string. It represents the label of the input field
	Size	Variable declared as integer. It represents length of the input string
	Value	Variable declared as variant. It represents the input value

See also:

Create, Free, AddHeader, AddInteger, AddFloeat, AddString, AddLookuplist, AddDate, InputValues, Value, ValueByLabel

Example:

var 
  vdlg :TValueDialogWrapper;
  lkpSpecies,lkpDeadTree:TTableWrapper;
  choice : variant; 
begin
  lkpSpecies:=Trees.GetLookupTable('Species');
  lkpDeadTree:=Trees.GetLookupTable('DeadTree');
  
  vdlg:=TValueDialogWrapper.Create;
  try
    vdlg.AddLookupList('Species',lkpSpecies,'ID','Value1',null);
    vdlg.AddLookupList('Dead tree',lkpDeadTree,'ID','Value1',null);
    if vdlg.InputValues('Select values') then begin
      // do something
      ShowMessage(format('Selected species value: %s',[vdlg.ValueByLabel('Species')]));
      ShowMessage(format('Selected dead tree value: %s',[vdlg.Value[1]]));
    end;
   finally
     vdlg.Free;
     lkpDeadTree.Free;
     lkpSpecies.Free;
   end;
end.