Function

TfrmOptionsTitles.MemberNotOnList

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Private

Owner

TfrmOptionsTitles

Declaration

function MemberNotOnList(alist: TStrings; listnum: string): boolean;

Called-By Hierarchy


            TfrmOptionsTitles.MemberNotOnList
              TfrmOptionsTitles.CheckEnable┘ 
  TfrmOptionsTitles.cboDocumentClassClick┤   
             TfrmOptionsTitles.FormShow┘ │   
            TfrmOptionsTitles.btnAddClick┤   
         TfrmOptionsTitles.btnRemoveClick┤   
TfrmOptionsTitles.cboDocumentTitlesChange┤   
             TfrmOptionsTitles.btnUpClick┤   
           TfrmOptionsTitles.btnDownClick┤   
     TfrmOptionsTitles.lstYourTitlesClick┘   

Called-By

Name Declaration Comments
TfrmOptionsTitles.CheckEnable procedure CheckEnable; -


Source

283   function TfrmOptionsTitles.MemberNotOnList(alist: TStrings; listnum: string): boolean;
284   var
285     i: integer;
286   begin
287     result := true;
288     with alist do
289     for i := 0 to Count - 1 do
290       if listnum = Piece(alist[i], '^', 1) then
291       begin
292         result := false;
293         break;
294       end;
295   end;