Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/AbonUnit.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 28 |
property Deleterlo: Boolean read FDeleterlo write FDeleterlo default false; |
property Deleterlo: Boolean read FDeleterlo write FDeleterlo default false; |
| 29 |
property Replaceul: Boolean read FReplaceul write FReplaceul default false; |
property Replaceul: Boolean read FReplaceul write FReplaceul default false; |
| 30 |
property Reverse: Boolean read FReverse write FReverse default false; |
property Reverse: Boolean read FReverse write FReverse default false; |
| 31 |
property CreateNGwordFile: Boolean read FCreateNGwordFile write FCreateNGwordFile default true; |
property CreateNGwordFile: Boolean read FCreateNGwordFile write FCreateNGwordFile; |
| 32 |
property AbonString : String read FAbonString write FAbonString; |
property AbonString : String read FAbonString write FAbonString; |
| 33 |
property AbonPopupRes : Boolean read FAbonPopupRes write FAbonPopupRes default false; |
property AbonPopupRes : Boolean read FAbonPopupRes write FAbonPopupRes default false; |
| 34 |
procedure Setroot(root :String); |
procedure Setroot(root :String); |
| 67 |
// 初期化 |
// 初期化 |
| 68 |
FAbonString := ' <> <> <> <><>'; |
FAbonString := ' <> <> <> <><>'; |
| 69 |
FRetStrings := TStringList.Create; |
FRetStrings := TStringList.Create; |
| 70 |
|
FCreateNGwordFile := true; |
| 71 |
SetCutoffNum(0); |
SetCutoffNum(0); |
| 72 |
end; |
end; |
| 73 |
|
|
| 130 |
|
|
| 131 |
except |
except |
| 132 |
if CreateNGwordFile = true then begin |
if CreateNGwordFile = true then begin |
| 133 |
bufstl.LoadFromFile(path); |
bufstl.SaveToFile(path); |
| 134 |
end; |
end; |
| 135 |
bufstl.Free; |
bufstl.Free; |
| 136 |
Result := false; |
Result := false; |
|
|
Legend:
| Removed from v.1.3 |
|
| changed lines |
| |
Added in v.1.4 |
|
|
|