随笔分类 - delhpi
摘要：'' = '''B' > 'A''AX' 'ABAB''ABABCCC' '''ABCD' >= 'ABAB''的' > '啊''的' > 'a''的' > '0''a' > '0''9' > '0'//以上表达式均为 True
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);var s1: AnsiString; //单字节储存 s2: WideString; //双字节储存begin s1 := '万一OK'; s2 := '万一OK'; ShowMessage(s1[1]); //显示乱码 ShowMessage(s2[1]); //万 ShowMessage(IntToStr(Length(s1))); //6 ShowMessage(IntToStr(Length(s2))); //4 ShowMessage(IntToStr(Si
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);var s1: ShortString; //为兼容老版本而存在 s2: string; //长字串，相当于动态字符数组 s3: string[10]; //短字串，相当于静态字符数组，代替 ShortStringbegin ShowMessage(IntToStr(SizeOf(s1))); //256 ShowMessage(IntToStr(SizeOf(s2))); //4 ShowMessage(IntToStr(SizeOf(s3))); //11end;
阅读全文
摘要：//指针的运算仅对 PChar 类型procedure TForm1.Button1Click(Sender: TObject);var p: PChar;begin p := 'China'; Inc(p); p := p + 1; ShowMessage(p); //返回：ina Dec(p); p := p - 1; ShowMessage(p); //返回：Chinaend;PChar是一个指针, 它的大小只有32位. 定义时由Delphi自动填0. 要将PChar作为字符串 使用的话必须自己分配内存用完必须自己释放. PChar型字符串由#0表示字符串结尾 Delph
阅读全文
摘要：uses Clipbrd;Clipboard.SetTextBuf(PChar(str));
阅读全文
摘要：1、edit控件没有垂直滚动条，改用memo控件，设置sScrollBars=ssVertical2、procedure TForm1.Button1Click(Sender: TObject);var f: TextFile; s,sFileName: string;begin sFileName :='c:\1.sql'; AssignFile(f, sFilename); Reset(f); while not Eof(f) do begin Readln(f, s); Memo1.Lines.Add(s) ; end; ...
阅读全文
摘要：放个adoquery控件 设置connectString链接access数据库（这个不会的话麻烦先随便找本书照的做做看）放个datasource控件 设置dataset属性为adoquery 放个dbgrid控件 设置datasource属性为datasource设置adoquery控件的active属性为True
阅读全文
摘要：Posted on 2010-08-24 17:12 beeone 阅读(997) 评论(0) 编辑 收藏 1，新建Project。 2，在FORM中放入ADOConnection控件。 3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件名.如果数据库没有密码,那就可以了,如果有密码，这时如果点“测试连接”按钮时，出现“初始化提供者时发生错误，测试连接失败，密码无效”的错误提示(看步骤4)。 4.
阅读全文
摘要：with AQuery1 dobegin close; //关闭数据库连接 sql.clear; //清除上次使用的sql语句 sql.add('select * from tab1'); //设置本次使用的sql语句 open; //打开数据库连接并执行查询语句 first; //移动到第一条记录end;
阅读全文
摘要：with…do语句用来指定一个块中的字段（记录的或者对象的）、属性和方法所属的记录或者对象。Delphi初学者可能已经习惯了如下的代码书写格式：varButton: TButton;beginButton := TButton.Create(Self);Button.Parent := Self;Button.Left := 50;Button.Top := 50;……end;每行都写一个Button是否让你感觉厌烦。Object Pascal提供它特有的with…do语句，可以帮你消除这个烦恼。上面的代码可以写为：varButton: TButton;beginButton := TButt
阅读全文
摘要：inherited就是调用祖先类的函数，如果不带参数就是默认调用同名函数如果带参数则表明子类中的函数个数可能比祖先类要多取其中的几个参数传过去例如祖先类有个函数 Create(AName:string);子类有个函数 Create(AName:string;AComponent:TObject);override;那么子类的Create函数内就可以这样调用祖先类：procedure TAClass.Create(AName:string;AComponent:TObject);begin Inherited Create(AName);end;转自：http://zhidao.baidu.co
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObje...
阅读全文
摘要：type TRec1 = record name: string[12]; age: Word; end; TRec2 = record name: string[12]; age: Word; end;var RecA,RecB: TRec1; RecX,RecY: TRec2;procedure TForm1.Button1Click(Sender: TObject);begin {给 RecA 赋值} RecA.name := '张三'; RecA.age := 18; {复制 RecA 给 RecB} RecB := RecA; {现在 RecB 的值和 RecA 一样
阅读全文
摘要：type TRec1 = record i: Integer; w: Word; end; TRec2 = packed record {压缩结构: 牺牲效率, 减小尺寸} i: Integer; w: Word; end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToStr(SizeOf(TRec1))); {8} ShowMessage(IntToStr(SizeOf(TRec2))); {6}end;
阅读全文
摘要：Chr //将一个有序数据转换为一个 ANSI 字符Ord //将一个有序类型值转换为它的序号Round //转换一个实型值为四舍五入后的整型值Trunc //转换一个实型值为小数截断后的整型值Int //返回浮点数的整数部分IntToStr //将数值转换为字符串IntToHex //将数值转换为十六进制数字符串StrToInt //将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef //将字符串转换为一个整数，如字符串不合法返回一个缺省值Val //将字符串转换为一个数字（传统 Turbo Pascal 例程用于向后兼容）Str //将数字转换为格式化..
阅读全文
摘要：'BORLAND' { BORLAND }'You''ll see' { You'll see }'''' { ' }'' { 空串 }' ' { 空格 }#89#111#117 { You }#89'Y'#89 { YYY }#89 + 'Y' + #89 { YYY }#13#10 { 换行 }
阅读全文
摘要：//结构体的比较普遍的两用法，具体还是得靠多看例子，帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了，i并无实际意义。//TtextRecord作为一个字符串的形式存在内存
阅读全文
摘要：Delphi if else 用法其实delphi中的IF语句和VB中的语句有点相像，都是IF .... THEN...不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧，呵呵。下边写几个IF语句的例子"：1、IF.. THENif 1=1 thenbegin//这里写执行语句end;2、IF..ELSEif 1=1 thenbegin..............end //记住这里不能加分号。elsebegin.....................end; //这里需要加分号3、IF...ELSE IF..if 1=1 thenb
阅读全文
摘要：关于动态创建PopupMenu的问题http://topic.csdn.net/t/20040825/09/3306672.html动态创建菜单 var mmiTemp:TMenuItem; begin mmiTemp:=TMenuItem.Create(); mmiTemp.Caption:= '标题 ';// mmiTemp.OnClick:= actLoadExecute;//设定action PopupMenu2.Add(mmiTemp);//加入到上层的菜单 end;其实我们可以使用一种更快的方法达到同样的功能...
阅读全文
浙公网安备 33010602011771号