SecurityLog

procedure __SecurityLog(Str: String);

procedure TMD371LF.__SecurityLog(Str: String);

type

  TMtx = array[0..50] of String;

var

 i, ParamCount: Integer;

 Tmp: String;

 Mtx: TMtx;

 Flag: Boolean;

begin

     Str := ';' + Str;

     Flag := False;

     ParamCount := 0;

     

     for i := 0 to 500 do begin

         if Str[i] <> ';' then begin

            Tmp := Tmp + Str[i];

         end

         else begin

              if Flag = False then Flag := True

              else begin

                   Mtx[ParamCount] := Tmp;

                   ParamCount := ParamCount + 1;

              end;//end if

              Tmp := '';

         end;//end if

     end;//end for

//==============================================================================

//2014.

//==============================================================================

     Showmessage('Param Count : ' + IntToStr(ParamCount));

     for i := 0 to ParamCount - 1 do begin

         Showmessage(Mtx[i]);

     end;//end for

//==============================================================================

end;

     __SecurityLog(MD371LF.Caption+';'+

                   bF5.Caption+';'+

                   RadioGroup1.Items[RadioGroup1.ItemIndex]+';'+

                   RadioGroup2.Items[RadioGroup2.ItemIndex]+';'+

                   RGbn.Items[RGbn.ItemIndex]+';'+

                   _DM01.__getFdate+';'+

                   _DM01.__getTdate

                   );