| 1246 |
end; |
end; |
| 1247 |
end; |
end; |
| 1248 |
until finish and ( loopCnt > 0 ); |
until finish and ( loopCnt > 0 ); |
| 1249 |
LastTxt := Body.Strings[ ThreadItem.Count - 1 ]; |
LastTxt := Body.Strings[ Body.Count - 1 ]; |
| 1250 |
if ThreadItem.Kokomade > 0 then begin |
if ThreadItem.Kokomade > 0 then begin |
| 1251 |
KokoTxt := Body.Strings[ ThreadItem.Kokomade - 1 ]; |
KokoTxt := Body.Strings[ ThreadItem.Kokomade - 1 ]; |
| 1252 |
end; |
end; |
| 1255 |
end; |
end; |
| 1256 |
|
|
| 1257 |
Body.Text := Content; |
Body.Text := Content; |
| 1258 |
ThreadItem.AllResCount := 0; |
Body.Find( LastTxt, LastIdx ); |
|
ThreadItem.NewResCount := 0; |
|
|
NewRes := Body.Count; |
|
|
|
|
|
Body.Find( LastTxt, LastIdx ); |
|
| 1259 |
OldCnt := LastIdx + 1; |
OldCnt := LastIdx + 1; |
| 1260 |
|
NewRes := Body.Count - OldCnt; |
| 1261 |
|
|
| 1262 |
if ThreadItem.Kokomade > 0 then begin |
if ThreadItem.Kokomade > 0 then begin |
| 1263 |
Body.Find( KokoTxt, KokoIdx ); |
Body.Find( KokoTxt, KokoIdx ); |
| 1264 |
ThreadItem.Kokomade := KokoIdx + 1; |
ThreadItem.Kokomade := KokoIdx + 1; |
| 1266 |
if ThreadItem.NewReceive > 0 then begin |
if ThreadItem.NewReceive > 0 then begin |
| 1267 |
Body.Find( NewTxt, NewIdx ); |
Body.Find( NewTxt, NewIdx ); |
| 1268 |
Inc( NewIdx ); |
Inc( NewIdx ); |
| 1269 |
ThreadItem.AllResCount := NewIdx; |
if OldCnt < NewIdx then begin |
| 1270 |
if OldCnt >= NewIdx then |
OldCnt := NewIdx; |
|
NewRes := Body.Count - OldCnt |
|
|
else |
|
| 1271 |
NewRes := Body.Count - NewIdx; |
NewRes := Body.Count - NewIdx; |
| 1272 |
|
end; |
| 1273 |
end; |
end; |
| 1274 |
end else begin |
end else begin |
| 1275 |
Body.Text := Content; |
Body.Text := Content; |
| 1276 |
//ThreadItem.Count := 0; |
//ThreadItem.Count := 0; |
|
ThreadItem.AllResCount := 0; |
|
|
ThreadItem.NewResCount := 0; |
|
| 1277 |
OldCnt := 0; |
OldCnt := 0; |
| 1278 |
NewRes := Body.Count; |
NewRes := Body.Count; |
| 1279 |
//Cnt := Body.Count; |
//Cnt := Body.Count; |