摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; ... 阅读全文

摘要： TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类: TFileStream: 文件流 TStringStream: 字符串流 TMemoryStream: 内存流 TResourceStream: 资源文件流 THandleStream: 是 TFileStream 的父类、TStream 的子类 TCustomMemoryStream: 是 TMemo... 阅读全文

摘要： 前言: 所谓"流", 就是一段数据或是一块内存; 在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position. 对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write. 在很多控件的使用中, 读取主要用 LoadFromStream; 写入主要用 SaveToStream. 举个例子:... 阅读全文

摘要： begin ShowMessage(IntToStr(Byte(^A))); {1} ShowMessage(IntToStr(Integer(^b))); {2} ShowMessage(IntToStr(Integer(^^))); {30} ShowMessage(IntToStr(Integer(^?))); {127} end; ^ 符号的特殊用法产生... 阅读全文

摘要： procedure TForm1.FormCreate(Sender: TObject);var Str: string; pStr: PString;begin Str := 'Delphi 2007'; pStr := @Str; {用 @ 获取指针} ShowMessage(pStr^); {Delphi 2007} Str := 'Delphi 2008'; pStr := ... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type {父类} TBase = class procedure proc; virtual; abstract; {抽象方法} end; {子类} ... 阅读全文

摘要： // Add、Count、Items[n] var List: TList; {声明 List} frmRed: TForm; {用于测试的对象, 这里选择了窗体} begin List := TList.Create; {建立列表} frmRed := TForm.C... 阅读全文

摘要： //先糊涂一下 var b: Boolean; begin b := AnsiResemblesText('abc','apc'); ShowMessage(BoolToStr(b)); {True} b := AnsiResemblesText('abc','agc'); ShowMessage(BoolToStr(b)); {False} b := AnsiRes... 阅读全文

摘要： //从左右两端提取指定数目的字符串: AnsiLeftStr、AnsiRightStr var ss,s: AnsiString; begin ss := 'abcdefg'; s := AnsiLeftStr(ss, 2); ShowMessage(s); {ab} s := AnsiRightStr(ss, 2); ShowMessage(s); {fg} end... 阅读全文

摘要： //对比字符串是不是一样: AnsiSameStr、AnsiSameText var ss,s: AnsiString; b: Boolean; begin ss := 'abc'; s := 'ABC'; b := AnsiSameStr(ss,s); {区分大小写} ShowMessage(BoolToStr(b)); {False} b := Ansi... 阅读全文