>>947 procedure TAge2chMainWnd.AutoMaintainTimerTimer(Sender: TObject); var i: integer; iNow, iSub: integer; begin iNow := DateTimeToUnix(Now); iSub := Config.netMaintainWait; //書き換え箇所
for i := 0 to UrlListView.Items.Count - 1 do begin if Pos('m', UrlListView.Items[i].SubItems[5]) > 0 then if iNow - DateTimeToUnix(StrToDateTime(UrlListView.Items[i].SubItems[1])) > iSub then PostQueue.Add(UrlListView.Items[i].SubItems[2]); end;
PostTimer.Enabled := true; end;
procedure TAge2chMainWnd.M1Click(Sender: TObject); var i: integer; begin for i := 0 to UrlListView.Items.Count - 1 do begin if UrlListView.Items[i].Selected then PostQueue.Add(UrlListView.Items[i].SubItems[2]); end;
