9月 22

RAD Studio XE 想爱你不容易

  在浏览技术站的时候看到,多年前学习的delphi也能开发android,十分高兴(当年放弃是因为找工作不好找,所以开始学习别的)。因为在学习android的java过程中发现,自己还是很不适应。
  赶紧下载RAD Studio XE6。ISO有5G多下载回来。我的操作系统是win7 64位,C盘保留了18G。悲催的是C盘被写满了,还是没有装完,只能重装。费了不少力气把软件删除。安装过程中把执行部分放到其他盘,但是装完不能启动。
  无奈下载了RAD Studio XE7,又是5G多,使用网上写的30天试用码,还是不能用。下载安装等工作用了差不多两天,还是没有搞定。真是想说爱你不容易。
  再等等,如有确认能安装成功的文档,我在测试吧。

3月 25

delphi简单代码收集

【收集人:张子萌 】

1. Form1中调用Form2窗口

Form2.ShowModal; //显示form2窗口

Form2.close; //关闭窗口

2. 获取title,可查看UTF-8编码

procedure TForm2.Button1Click(Sender: TObject); //获取title
var
webboby:string;
r:TRegExpr;
s1:string;
charseti:integer;
gethttp:Tidhttp;
begin
gethttp:=Tidhttp.Create(self);
webboby:=gethttp.Get(Edit1.Text);
charseti:=pos(‘charset=’,webboby);
if (copy(webboby,charseti+8,3)=’utf’) or (copy(webboby,charseti+8,3)=’UTF’) then
webboby:=UTF8Decode(webboby);
s1:=”;
r:= TRegExpr.Create;
try // ensure memory clean-up
r.Expression := ‘[^a]*‘;
if r.Exec(webboby) then
REPEAT
s1 :=r.Match [0];
Edit2.Text:=s1;
UNTIL not
r.ExecNext;
finally
r.Free;
end;
end;