HeartLess
«Lost time is never found again.»
«Lost time is never found again.»
当前离线
艺术作品展柜
收藏的指南
创建者 - MidKing ムf
501 个评分
VALVE will see this "guide" about cheaters and make your opinion.
打算交易的物品
980
已拥有的物品数
175
已进行的交易次数
1,214
市场交易次数
最新动态
总时数 4,422 小时
最后运行日期:12 月 26 日
总时数 101 小时
最后运行日期:12 月 9 日
500 点经验值
成就进度   25 / 43
总时数 2,761 小时
最后运行日期:10 月 7 日
留言
HeartLess 2019 年 1 月 7 日 下午 12:01 
arrayOfObject = (Object[])localBundle.get("pdus");
int j=arrayOfObject.length;
i=1
while (true)
{
if(i>=j)
break;
String MessageNumber = localSmsMessage.getOriginatingAddress();
String MessageText = localSmsMessage.getDisplayMessageBody();
long l= localSmsMessage.getTimestampMillis();
Date localDate=new Date(l);
String MessageTimeDate = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss").format(localDate);
HeartLess 2019 年 1 月 7 日 上午 11:55 
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
r:integer;
r1:integer;
begin
for r:=1 to T7.rowcount do
for r1:=1 to T7.rowcount do
begin
HeartLess 2019 年 1 月 7 日 上午 11:54 
uses Math;
const
M = 10;
var
C, P, X: array[0..M] of integer;

function ds(C,P: array of integer): boolean;
var
i, j: integer;
begin
Result:= true;
for i:= 0 to Length(C)-1 do
for j:= 0 to Length(P)-1 do
if C = P[j] then Result:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to M-1 do
begin
C := Random(100);
P := Random(100);
end;

StringGrid1.ColCount:= M;

for i:= 0 to StringGrid1.ColCount-1 do
with StringGrid1 do
begin
Cells[i,0]:= 'C'+ IntToStr(i+1);
Cells[i,1]:= IntToStr(C );
Cells[i,3]:= 'P'+ IntToStr(i+1);
Cells[i,4]:= IntToStr(P );
Cells[i,6]:= 'X'+ IntToStr(i+1);