Technology Learning

摘要： procedure TForm1.Timer1Timer(Sender: TObject);begin if Image1.Visible=true then Image1.Visible:=false else Image1.Visible:=true;end;procedure TForm1.Button1Click(Sender: TObject);begin Timer1.Interval... 阅读全文

摘要： 文件：　　1、文本文件　　2、类型文件　　3、无类型文件1、var MyTextFile:TextFile;begin{$I-} AssignFile(MyTextFile,'C:\TextFile.txt');// Reset(MyTextFile); //?? //Rewrite(MyTextFile); append(MyTextFile); try writeln(MytextFile,'... 阅读全文

摘要： procedure ChDir(S:string);改变当前的目录。如果在指定路径中包含有驱动器号（盘符），则相应改变当前的驱动器。procedure Create(const Dir:string):boolean;新建一个目录。如果创建成功，则返回true。父目录必须存在procedure DirectoryExists(Name:string):boolean;测试指定的目录是否存在。如果n... 阅读全文

摘要： 1常用函数　　procedure AssignFile(var F;FileName:string);　　将一个外部文件的文件名和一个file类型的变量关联。如果参数filename指向的字串为空，则将参数f与标准输入文件或标准输出文件关联。如果assignfile过程将参数f与一个空文件名关联后，调用reset（f），则f与标准输入文件关联；如果调用的是rewrite（f），则f与标准输出文件关... 阅读全文

摘要： 原理：　　图像的浮雕处理效果就是突出图像中物体，而突出图像中的物体一般是加强物体边界的显示效果。一般采用的方法是：如果两个相邻的像素差别不大，则认为这两个像素在一个物体上，此时可以用一个颜色填充，如果两个相邻像素颜色差别较大则显然不在一个物体上，此时加强边界效果。实例：　　var Form19: TForm19; Map1: TBitmap;implementation{$R *.dfm}proc... 阅读全文

摘要： 原理：　　锐化就是增强图像的对比度，使亮处更亮，暗处更暗。因而可以使像素点的值大于125的乘以大于1的系数，而小于125的除以一个大于1的系数，从而达到亮处更亮，暗处更暗的效果。实例：　　var Form18: TForm18; Map1: TBitmap;implementation{$R *.dfm}procedure TForm18.FormCreate(Sender: TObject);b... 阅读全文

摘要： 基本原理：　　以一个像素点为中心，取一个3*3大小的区域，以该区域中9个像素点的颜色平均值为该中心像素点着色实例：var Form17: TForm17; Map1:TBitmap;implementation{$R *.dfm}procedure TForm17.FormCreate(Sender: TObject);begin// Lb_R.Caption:='';OpenDialog1.De... 阅读全文

摘要： procedure TForm16.bmp_rotate(src,dst:TBitmap;angle:extended);var c1x,c1y,c2x,c2y:integer; p1x,p1y,p2x,p2y:integer; radius,n:integer; alpha:extended; c0,c1,c2,c3:TColor;begin angle:=(angle/180)*pi; c1x... 阅读全文

摘要： http://baike.baidu.com/view/109447.htmmain(){ union exx{ int a,b; struct { int c,d; }lpp; }e={10};//e.b=e.a+20;//由于只保存一个值，所以e.b=30;e.lpp.c=e.a+e.b;//这里e.a和e.b都为30 e.lpp.c为60e.lpp.d=e.a*e.b;//e.lpp.d 为... 阅读全文

摘要： procedure TForm15.FormActivate(Sender: TObject);var X:Real; Z:integer; A:integer; pic1:TBitmap; pic2:TBitmap;beginA:=0;pic1:=TBitmap.Create;pic2:=TBitmap.Create;pic1.Width:=312;pic1.Height:=312;pic1.C... 阅读全文