Procedure

TfrmOptionsReminders.btnOKClick

Module

fOptionsReminders

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsReminders

Declaration

procedure btnOKClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsReminders.btnOKClick
 └rpcSetReminders

Calls

Name Declaration Comments
rpcSetReminders procedure rpcSetReminders(aList: TStringList); -


Source

257   procedure TfrmOptionsReminders.btnOKClick(Sender: TObject);
258   var
259     i: integer;
260     values: string;
261     aList: TStringList;
262   begin
263     aList := TStringList.Create;
264     try
265       with lstDisplayed do
266       for i := 0 to Items.Count - 1 do
267       begin
268         values := inttostr(i + 1) + '^' + Piece(Items[i], '^', 1);
269         aList.Add(values);
270       end;
271       rpcSetReminders(aList);
272     finally
273       aList.free;
274     end;
275   end;