----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  编程语言

摘要:先贴一段别人总结好的:格式化输出的控制字符非常的丰富,但常用的并不多,一般说来:" I 、F、E、A、X "是最常使用的几个格式,最好把它们都记下来。Iw[.m]以w个字符的宽度来输出整数,至少输出m个数字。如:write(*,"(I5)") 100 输出:_ _100 ; 前面两空格Fw.d以w个... 阅读全文
posted @ 2015-04-03 23:28 向北方 阅读(41709) 评论(0) 推荐(1) 编辑

摘要:一.winteracter是什么?为什么要用VS代替wide?winteracter 是一款强大的 Fortran 图形界面函数库,可方便的用 Fortran 生成GUI界面,对话框,菜单,绘图等操作。支持 windows/Linux/Mac 上的绝大多数编译器。具体可参考本站文章介绍>>>其自带 ... 阅读全文
posted @ 2015-03-22 22:06 向北方 阅读(1678) 评论(0) 推荐(0) 编辑

摘要:现在多数设备、计算机都有多个CPU单元,即使是手机也是多核的。但要在开发中使用多核的优势,却需要一些技巧,花费时间编写额外的代码。好了,现在可以使用Delphi做并行编程了。在Delphi、C++ Builder和RAD Studio XE7中,有一个简化并行运行任务的库,叫做并行编程库。并行编程库... 阅读全文
posted @ 2015-03-07 21:42 向北方 阅读(759) 评论(1) 推荐(0) 编辑

摘要:三个有关上下限问题的控件,它们也是主要控件的组成部分,分别为:SpinGadget() 数控编辑框TrackBarGadget() 调节块控件ProgressBarGadget() 进度条控件首先,我们开始来认识一下SpinGadget(),之所以将SpinGadget()翻译成"数控编辑框",并非从英转汉的角度来直译,而是从其功能入手,可能我翻译得不够好,请大家指点指点. 语 法: [返回值=] SpinGadget(, , , , ,, [,标志]) 描述1: 在当前的GadgetList中构建一个数控编辑框. 如果参数使用#PB_Any,[返回值]为新控件的编号. E 阅读全文
posted @ 2014-04-02 22:01 向北方 阅读(795) 评论(0) 推荐(0) 编辑

摘要:先新建一个Package file----NEW-----Package Delphi for win32,再在Component->ImportComponent里面添加好ActiveX控件。之后不要选CreateUnit,要选AddunittoPackage。在右上角Package.bpl上按右键选Install,成功会弹出一个控件列表的对话框,保存Package.bpl就好了。 阅读全文
posted @ 2014-03-22 15:12 向北方 阅读(593) 评论(0) 推荐(0) 编辑

摘要:在编程的过程中,文件的操作是一个经常用到的问题,在C++Builder中,可以使用多种方法对文件操作,下面我就按以下几个部分对此作详细介绍,就是:1、基于C的文件操作;2、基于C++的文件操作;3、基于WINAPI的文件操作;4、基于BCB库的文件操作;5、特殊文件的操作。这次我首先写出第一篇,以后我会陆续写出其它部分在我主页中发表。壹、基于C的文件操作 在ANSI C中,对文件的操作分为两种方式,即流式文件操作和I/O文件操作,下面就分别介绍之。一、流式文件操作 这种方式的文件操作有一个重要的结构FILE,FILE在stdio.h中定义如下:typedef struct { int ... 阅读全文
posted @ 2014-03-22 13:06 向北方 阅读(7331) 评论(0) 推荐(0) 编辑

摘要:1.变长一维数组 这里说的变长数组是指在编译时不能确定数组长度,程序在运行时需要动态分配内存空间的数组。实现变长数组最简单的是变长一维数组,你可以这样做: 1: //文件名: array01.cpp 2: #include 3: using namespace std; 4: int main() 5: { 6: int len; 7: cin>>len; 8: //用指针p指向new动态分配的长度为len*sizeof(int)的内存空间 9: int *p=new int[len]; 10: ........... 11: delete[] p; 12: return 0; 1 阅读全文
posted @ 2014-03-21 23:24 向北方 阅读(4346) 评论(0) 推荐(0) 编辑

摘要:如果你想使用Delphi诸如XE4、XE3、XE2、XE之类的版本跟Delphi XE5共存的话,在cglm.ini中简单修改两行就行啦。找到Delphi XE5的安装根目录C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin下的cglm.ini文件,打开cglm.ini文件[Embarcadero License Management]RootDir=${MODULE_DIR}\..LicenseDir=${ROOTDIR}\LicenseInfoDir=${COMMON_APPDATA}\Embarcadero\.licensesSl 阅读全文
posted @ 2014-03-14 15:27 向北方 阅读(488) 评论(0) 推荐(0) 编辑

摘要:The PureBasic IDE has a very powerful integrated form designer, which allows to design easily windows and arrange gadgets on them. It supports almost all native PureBasic gadgets, menu and even status bar. A form file is a regular PureBasic file, so it can be easily modified without even open the fo 阅读全文
posted @ 2014-03-08 23:21 向北方 阅读(1360) 评论(0) 推荐(0) 编辑

摘要:一、在stdafx.h文件中,添加:#include "Form2.h"/ stdafx.h : 标准系统包含文件的包含文件,// 或是经常使用但不常更改的// 特定于项目的包含文件#pragma once// TODO: 在此处引用程序需要的其他头文件#include "Form2.h"二、在按钮响应事件中添加如下代码:Form2 ^f = gcnew Form2();f->ShowDialog();#pragma oncenamespace mYt { using namespace System; using namespace System 阅读全文
posted @ 2014-03-08 19:43 向北方 阅读(6021) 评论(0) 推荐(0) 编辑

摘要:如果你使用messagedlg(对showmessage也适用)可以汉化定义按钮caption的常量,具体操作步骤如下:1. 打开文件consts.pas(在Delphi安装目录的/source/vcl下) 2. 将以下资源字符串常量的值进行改动: SMsgDlgWarning = '警告'; SMsgDlgError = '错误'; SMsgDlgInformation = '信息'; SMsgDlgConfirm = '确认'; SMsgDlgYes = '(&Y)是'; SMsgDlgNo =  阅读全文
posted @ 2014-02-05 20:45 向北方 阅读(1656) 评论(0) 推荐(0) 编辑

摘要:第一章 初始化OpenGL 无论是什么东西,要使用它,就必须对它进行初始化。如果你之前使用过GDI,你应该也多多少少了解到GDI在绘制图形之前要为之创建渲染环境。OpenGL也一样。本章给出的代码,大家可以不必理解其中的具体意义,反正以后每次初始化是使用这个代码即可。 首先,在一个新的应用程序中,我们需要添加对OpenGL库的引用。Delphi已经为我们写好了OpenGL的头文件,因此我们只须直接在单元的uses中添加OpenGL即可: ... uses Windows, Graphics, OpenGL, ... ... 在创建窗口时,应添加如下代码:procedure Form1.Crea 阅读全文
posted @ 2014-01-28 23:04 向北方 阅读(10814) 评论(0) 推荐(0) 编辑

摘要:前言 在开发了许多2D图形程序之后,许多人开始对3D图形编程产生了兴趣。学习一套3D API,是进行3D图形编程的基础。在有趣的3D图形编程中,3D API只不过充当着一种低级的工具而已。因此,在这里我要提醒想学习3D API的朋友,无论你将要使用DirectX,或者跟我一样使用OpenGL,都不要把它们看得过于神圣。事实上它们只是一套API,学习它,你只须一定的Windows编程基础即可。它们不需要你有多么高深的数学功底,也不需要什么灵活的头脑——如果你只是想用OpenGL渲染3D图形的话,就不需要什么特别的知识。因为无论是DirectX还是OpenGL,都只是在帮你画画而已。 我的这套教程 阅读全文
posted @ 2014-01-28 23:02 向北方 阅读(3118) 评论(0) 推荐(1) 编辑

摘要:unit Unit1;interfaceuses OpenGL,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure Timer1Timer(Sender: TObject); ... 阅读全文
posted @ 2014-01-28 22:59 向北方 阅读(2225) 评论(0) 推荐(0) 编辑

摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;type TMyR... 阅读全文
posted @ 2014-01-23 23:00 向北方 阅读(2901) 评论(0) 推荐(0) 编辑

摘要:unit Form_MainU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,MapWinGIS_TLB, DB, Grids, DBGrids, DBTables, OleCtrls, ComCtrls, StdCtrls ;type TForm1 = class(TForm) Button1: TButton; PageControl1: TPageControl; TabSheet1: TTabSheet; T... 阅读全文
posted @ 2014-01-20 22:52 向北方 阅读(879) 评论(0) 推荐(0) 编辑

摘要:program main !sms网格转换成mike21网格 DIMENSION X(60000),Y(60000),H(60000),NDNN(110000,3),ncbd(10000) dimension NBS(50),NOBD(5000,50),NSED(5000,50),id0(80000),nbi(50) dimension x0(50000),y0(50000),h0(50000) character*2 a*2,b*2,gnn*3,demo*500 open(3,file='./2013.8.30(after).grd',status='o... 阅读全文
posted @ 2014-01-20 11:44 向北方 阅读(1076) 评论(0) 推荐(1) 编辑

摘要:subroutine basis_function_b_val ( tdata, tval, yval )!!*******************************************************************************!!! BASIS_FUNCTION_B_VAL evaluates the B spline basis function.!!! Discussion:!! The B spline basis function is a piecewise cubic which! has the properties tha... 阅读全文
posted @ 2014-01-20 11:34 向北方 阅读(1359) 评论(0) 推荐(0) 编辑

摘要:unit Unit3;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB, Vcl.OleCtrls, MapWinGIS_TLB, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.OleServer, Bde.DBTables;type TForm3 = cla... 阅读全文
posted @ 2014-01-19 23:07 向北方 阅读(1900) 评论(0) 推荐(0) 编辑

摘要:虽然版本号升的不大,但这也是一个重要的版本。作者发现了一个长期存在的bug,就是建立一个线程,如果不指定线程的优先级则默认设置为idle。(正确的应是Normal)看一下具体的改动情况:新功能:Added SetPriority function to the IOmniTaskConfig.Added indexed writers ([number] and [name]) to both TOmniValue and TOmniValueContainer. Bug修正:如果不指定线程优先级默认设置为Normal.Corrected swapped content of 'Sch 阅读全文
posted @ 2014-01-18 16:53 向北方 阅读(659) 评论(0) 推荐(0) 编辑