- 博客(4)
- 收藏
- 关注
原创 ddd
![TTHX7%CWPQMTVV]7`M]VV.png](https://img-blog.csdnimg.cn/img_convert/85ce59a9d003066be579b32e79feddfc.png)delphi 使用 idHTTP 获取 UTF-8 编码的中文网页procedure TForm2.Button1Click(Sender: TObject);var IdHttp1: TIdHTTP; Url,s,ResponseStr: string;//请求地址 ..
2021-11-18 23:31:39 868
原创 Delphi 10.3.1 Memo打开/保存utf-8不乱码的方法
begin Memo1.Lines.LoadFromFile('d:\zong.txt', TEncoding.UTF8);end;同理,保存也是一样的。begin Memo1.Lines.SaveToFile('d:\hehe.txt', TEncoding.UTF8);end;
2021-02-11 23:20:31 784
原创 Delphi如何获取一个字符串在另一个字符串中最后一次出现的位置
uses StrUtils;function ReversePos(SubStr, S: String): Integer;var i : Integer;begin i := Pos(ReverseString(SubStr), ReverseString(S)); if i > 0 then i := Length(S) - i - Length(SubStr) + 2; Result := i;end; //uses 要添加StrUt.
2021-02-11 22:53:26 785
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人