本文整理自网络,侵删。
function MacSonucuAl(const id: Integer): string; function SubParse(Source, L, R: string): string; begin Delete(Source, 1, Pos(L, Source) + Length(L) - 1); Result := Copy(Source, 1, Pos(R, Source) - 1); end;var HTTP: TIdHTTP; Temp: string;begin HTTP := TIdHTTP.Create(nil); try Temp := HTTP.Get('http://www.delphitop.com.com/Mac/' + IntToStr(id) + '/'); Result := Trim(SubParse(Temp, '<div class="match-score" id="dvScoreText">', '</div>')); finally HTTP.Free; end;end;
相关阅读 >>
Delphi d10.x 在安卓app开发中使用jar包的注意事项
Delphi strtodatetime 这个函数在win7下出错
Delphi tfinddialog treplacedialog对话框在memo中的使用
更多相关阅读请进入《Delphi》频道 >>