Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoBayesian.pas

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

revision 1.12 by yoffy, Mon Nov 1 04:45:25 2004 UTC revision 1.13 by yoffy, Mon Nov 1 05:18:21 2004 UTC
# Line 634  begin Line 634  begin
634                          if mode <> newMode then begin                          if mode <> newMode then begin
635    
636                                  // 文字のタイプが変更された                                  // 文字のタイプが変更された
637                                  SetLength( aWord, p - last );                                  if mode <> ModeWhite then begin
638                                  CopyMemory( PChar( aWord ), last, p - last );                                          SetLength( aWord, p - last );
639                                            CopyMemory( PChar( aWord ), last, p - last );
640    
641                                  words.Text := changeMode( aWord, mode );                                          words.Text := changeMode( aWord, mode );
642    
643                                  // 単語登録                                          // 単語登録
644                                  addWord( wordCount, words );                                          addWord( wordCount, words );
645                                    end;
646    
647                                  last := p;                                  last := p;
648                                  mode := newMode;                                  mode := newMode;

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

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