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.3 by h677, Wed Aug 13 05:06:20 2003 UTC revision 1.4 by h677, Wed Aug 13 05:16:07 2003 UTC
# Line 28  type Line 28  type
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);
# Line 67  begin Line 67  begin
67      // 初期化      // 初期化
68      FAbonString := '&nbsp;<>&nbsp;<>&nbsp;<>&nbsp;&nbsp;<><>';      FAbonString := '&nbsp;<>&nbsp;<>&nbsp;<>&nbsp;&nbsp;<><>';
69      FRetStrings := TStringList.Create;      FRetStrings := TStringList.Create;
70        FCreateNGwordFile := true;
71      SetCutoffNum(0);      SetCutoffNum(0);
72  end;  end;
73    
# Line 129  begin Line 130  begin
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

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