Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.35 by h677, Fri Sep 10 17:23:48 2004 UTC revision 1.36 by h677, Sun Sep 12 01:05:14 2004 UTC
# Line 1186  var Line 1186  var
1186          NewRes: Integer;          NewRes: Integer;
1187          finish : Boolean;          finish : Boolean;
1188          loopCnt : Integer;          loopCnt : Integer;
1189          KokoTxt : string;  //      KokoTxt : string;
1190          KokoIdx : Integer;  //      KokoIdx : Integer;
1191          NewTxt  : string;  //      NewTxt  : string;
1192          NewIdx  : Integer;  //      NewIdx  : Integer;
1193          LastTxt : string;  //      LastTxt : string;
1194          LastIdx : Integer;          LastIdx : Integer;
1195  begin  begin
1196          FileName := ThreadItem.GetThreadFileName;          FileName := ThreadItem.GetThreadFileName;
# Line 1251  begin Line 1251  begin
1251    
1252                                                  Body.Text := Content;                                                  Body.Text := Content;
1253                                                  if (ThreadItem.Kokomade > 0) and (ThreadItem.Kokomade <= oldBody.Count) then begin                                                  if (ThreadItem.Kokomade > 0) and (ThreadItem.Kokomade <= oldBody.Count) then begin
1254                                                          ThreadItem.Kokomade := Body.IndexOf(oldBody.Strings[ ThreadItem.Kokomade - 1 ]) + 1;                                                          ThreadItem.Kokomade := Body.IndexOf(oldBody.Strings[ ThreadItem.Kokomade - 1 ]);
1255                                                            if ThreadItem.Kokomade <> -1 then ThreadItem.Kokomade := ThreadItem.Kokomade + 1;
1256                                                  end;                                                  end;
1257    
1258                                                  LastIdx := oldBody.Count;                                                  LastIdx := oldBody.Count;

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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