Function

IndexForCurrentID

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Scope

Local

Local subprogram to

NotifyOrder

Declaration

function IndexForCurrentID(const AnID: string): Integer;

Called-By Hierarchy


       IndexForCurrentID
  TfrmMeds.NotifyOrder┘ 
TfrmFrame.UMNewOrder┘   

Called-By

Name Declaration Comments
TfrmMeds.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -


Source

403   function IndexForCurrentID(const AnID: string): Integer;
404   var
405     i: Integer;
406   begin
407     Result := -1;
408     for i := 0 to uPendingChanges.Count - 1 do
409       if Piece(uPendingChanges[i], U, 2) = AnID then Result := i;
410     if Result < 0 then
411       for i := 0 to uPendingChanges.Count - 1 do
412         if Piece(uPendingChanges[i], '=', 1) = Piece(AnID, ';', 1) then Result := i;
413   end;