Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by h677, Tue Sep 2 13:27:07 2003 UTC revision 1.12 by h677, Tue Sep 2 14:45:28 2003 UTC
# Line 69  type Line 69  type
69      procedure DeleteIndividualAbon( ResNum : Integer);      procedure DeleteIndividualAbon( ResNum : Integer);
70      function GetAbonResCount() : Integer;      function GetAbonResCount() : Integer;
71      function GetAbonResString(Num : Integer) : String;      function GetAbonResString(Num : Integer) : String;
72        function CheckIndividualAbonList(ResNum : Integer) : Boolean;
73      //--      //--
74      function ExecuteFile(datfilepath : String; NGwordpath : String) : Boolean; overload;//DATファイルを直にいじる      function ExecuteFile(datfilepath : String; NGwordpath : String) : Boolean; overload;//DATファイルを直にいじる
75      function ExecuteFile(datfilepath : String; resnum : Integer) : Boolean; overload; //DATファイルを直にいじる      function ExecuteFile(datfilepath : String; resnum : Integer) : Boolean; overload; //DATファイルを直にいじる
# Line 557  procedure TAbon.EditNGwords(); Line 558  procedure TAbon.EditNGwords();
558  begin  begin
559      ShellExecute(0 ,nil,PChar(FNGwordpath),nil,nil,SW_SHOW);      ShellExecute(0 ,nil,PChar(FNGwordpath),nil,nil,SW_SHOW);
560  end;  end;
561    //ポップアップ用判定関数
562  function TAbon.CheckAbonPopupRes(line : String) :Boolean;  function TAbon.CheckAbonPopupRes(line : String) :Boolean;
563  begin  begin
564      if AbonPopupRes = true then begin      if AbonPopupRes = true then begin
# Line 741  begin Line 743  begin
743  end;  end;
744  //個別あぼ〜んのリストの個数を返す  //個別あぼ〜んのリストの個数を返す
745  function TAbon.GetAbonResCount() : Integer;  function TAbon.GetAbonResCount() : Integer;
746    var
747            i : Integer;
748  begin  begin
749          Result := High(FAbonRes);      if FAbonRes[0].Res = 0 then begin
750            Result := 0
751        end else begin
752                    i := High(FAbonRes);
753            Result := i+1;
754        end;
755  end;  end;
756  //個別あぼ〜んのリストのn行目のレスを文字列で返す  //個別あぼ〜んのリストのn行目のレスを文字列で返す
757  function TAbon.GetAbonResString(Num : Integer) : String;  function TAbon.GetAbonResString(Num : Integer) : String;
758  begin  begin
759          if (Num < High(FAbonRes)) and (Num >= 0) then begin          if (Num <= High(FAbonRes)) and (Num >= 0) then begin
760          Result := IntToStr(FAbonRes[Num].Res);          Result := IntToStr(FAbonRes[Num].Res);
761      end else begin      end else begin
762          Result := '';          Result := '';
763      end;      end;
764  end;  end;
765    //ポップアップの判定用
766    function TAbon.CheckIndividualAbonList(ResNum : Integer) : Boolean;
767    var
768            i : Integer;
769    begin
770            if FAbonRes[0].Res <> 0 then begin
771            for i := 0 to High(FAbonRes) do begin
772                    if FAbonRes[i].Res = ResNum then begin
773                    Result := true;
774                    Exit;
775                end;
776            end;
777        end;
778        Result := false;
779        
780    end;
781  end.  end.
782    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26