9月 22

RAD Studio XE 想爱你不容易

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

1月 25

Delphi和unix 时间互转

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
unix_time:int64;
begin
//系统时间转化成unix时间戳
unix_time:=Datetimetounix(strToDateTime(‘2010-05-01 00:00:00’));
Memo1.Lines.Add(IntToStr(unix_time));
//unix时间戳转化为系统时间
Memo1.Lines.Add(DateTimeToStr(UnixToDateTime(unix_time)));
end;

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;