Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.167 by h677, Wed Nov 3 14:33:57 2004 UTC revision 1.168 by h677, Wed Nov 3 15:19:24 2004 UTC
# Line 3857  end; Line 3857  end;
3857  function TGikoSys.GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem):string;  function TGikoSys.GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem):string;
3858  var  var
3859          i: integer;          i: integer;
         ReadList: TStringList;  
         Res: TResRec;  
         boardPlugIn : TBoardPlugIn;  
3860          body: TStringList;          body: TStringList;
3861  begin  begin
3862          Result := '';          Result := '';
# Line 3914  end; Line 3911  end;
3911  function TGikoSys.GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem):string;  function TGikoSys.GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem):string;
3912  var  var
3913          i: integer;          i: integer;
         ReadList: TStringList;  
         Res: TResRec;  
         boardPlugIn : TBoardPlugIn;  
3914          body: TStringList;          body: TStringList;
3915  begin  begin
3916          Result := '';          Result := '';
# Line 3936  end; Line 3930  end;
3930    
3931  procedure TGikoSys.GetSameIDRes(AIDNum : Integer; ThreadItem: TThreadItem;var body: TStringList);  procedure TGikoSys.GetSameIDRes(AIDNum : Integer; ThreadItem: TThreadItem;var body: TStringList);
3932  var  var
         i: integer;  
3933          Res: TResRec;          Res: TResRec;
3934          boardPlugIn : TBoardPlugIn;          boardPlugIn : TBoardPlugIn;
3935          AID : String;          AID : String;

Legend:
Removed from v.1.167  
changed lines
  Added in v.1.168

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