12 2013 档案

1.安卓程序的退出询问和锁手机屏幕翻转
摘要：unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); p... 阅读全文
posted @ 2013-12-09 19:07 GOD攀 阅读(375) 评论(0) 推荐(0)
Delphi定义多维数组和读取多维数组
摘要：program Project1;{$APPTYPE CONSOLE}uses SysUtils;var MyArr: array[0..3,0..1] of Integer = ((1,2),(4,3),(22,31),(56,10)); I1,I2: Integer;begin for I1 := 0 to High(MyArr) do begin for I2 := 0 to High(MyArr[I1]) do begin Writeln(MyArr[I1][I2]); end; end; Readln;end. 阅读全文
posted @ 2013-12-01 19:06 GOD攀 阅读(1528) 评论(0) 推荐(0)