RPC HELP TMult Order Example

RPC Broker Help Home Back

Order Example

The following program code demonstrates how to get the next and previous elements in a TMult list: procedure TForm1.Button1Click(Sender: TObject); var Mult: TMult; Subscript: string; begin {Create Mult. Make Form1 its owner} Mult := TMult.Create(Form1); Mult['First'] := 'One'; {Store element pairs one by one} Mult['Second'] := 'Two'; Mult['Third'] := 'Three'; Mult['Fourth'] := 'Four'; {Subscript will be Fourth} Subscript := Mult.Order('Third',1); {Subscript will be Second} Subscript := Mult.Order('Third',-1); {Subscript will be ''. THIRD subscript does not exist} Subscript := Mult.Order('THIRD',1); {Subscript will be First} Subscript := Mult.Order('',1); {Subscript will be Fourth} Subscript := Mult.Order('',-1); end;