2013年3月25日
lazarus1.1：ListView用法
摘要： ListView数据填充：procedure TForm1.FormActivate(Sender: TObject); Names: array[0..5, 0..3] of string = ( ('Rubble', 'Barney', 'Rubble', 'Barney'), (... 阅读全文
posted @ 2013-03-25 09:40 cuibq 阅读(341) 评论(0) 推荐(0)
lazarus1.1:一行代码完成MD5加密
摘要： 在lazarus主站转悠了半天，才发现MD5加密好简单：1、uses 部分加上md52、加密操作：Edit2.Text := MD5Print(MD5String(Edit1.Text)); 源程序：unit Unit1;{$mode objfpc}{$H+}interfaceuses Class... 阅读全文
posted @ 2013-03-25 09:31 cuibq 阅读(340) 评论(0) 推荐(0)