Technology Learning

摘要： 文件：　　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... 阅读全文