| 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ファイルを直にいじる |
| 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 |
| 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 |
|
|