- 博客(16)
- 资源 (1)
- 收藏
- 关注
原创 Stack使用
<br />{函数功能:将整形转换成string<br /> 传入参数:Value: LongInt<br /> 传出参数:result: string<br />}<br /> <br />function TDIntToStr(Value : LongInt) : string;<br />var<br /> ChStack: Array[0..10]of Char;<br /> ChSP: Integer;<br /> IsNep: Boolean; {是否负数}<br />
2010-12-28 11:12:00 1508
原创 2010年庚寅年记事
<br />2010.12.26<br /> <br />2010年在即将的一星期中划过,我做了些什么?得到了什么?失去了什么?<br /> <br />我父亲的父亲是朴素的农民<br /> <br />我父亲也是朴素的农民<br /> <br />我是农民的儿子<br /> <br />会成为什么呢? <br /> <br />未知,问号?<br /> <br />岁月,一天天走<br /> <br />日子,一天天过<br /> <br />未来,何去何从<br /> <br />
2010-12-26 21:16:00 523
原创 循环链表
<br />unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> procedure Fo
2010-12-17 16:58:00 387
原创 双向链表
<br />unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Button2: TBu
2010-12-17 16:58:00 400
原创 单向链表的添加、删除与遍历
<br />unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Memo1: TMemo;<br /> Button1: TButton
2010-12-17 15:58:00 1677 1
原创 一个简单的"单向链表"
<br />unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Button2: TBu
2010-12-17 15:56:00 465
原创 链表与数组的异同
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject);
2010-12-17 15:56:00 660
原创 递归函数实例: 搜索当前目录下的所有嵌套目录
<br />unit Unit1;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls;<br /><br />type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Memo1: TMemo
2010-12-17 11:21:00 469
原创 回调函数
<br />//把一个方法当作另一个方法的参数, 就是回调方法, 大家习惯称作回调函数<br /><br />type<br /> TFunType = function(i: Integer): Integer; {声明一个方法类型}<br /><br />function MyFun(i: Integer): Integer; {建立类型兼容的函数}<br />begin<br /> Result := i*2;<br />end;<br /><br />{把函数当作参数, 再定义一个
2010-12-17 11:17:00 424
原创 使用方法类型
<br />{定义方法类型}<br />type<br /> TFunType = function(x: Integer): Integer; {函数类型}<br /> TProcType = procedure(name: string); {过程类型}<br /><br />{定义一个符合 TFunType 类型的函数}<br />function MyFun(x: Integer): Integer;<br />begin<br /> Result := x * 2;<br />
2010-12-17 11:16:00 409
原创 方法是一个指针
<br />{自定义过程}<br />procedure MyProc;<br />begin<br /> ShowMessage('ok');<br />end;<br /><br />{自定义函数}<br />function MyFun: string;<br />begin<br /> Result := 'ok';<br />end;<br /><br />{读取它们的指针}<br />procedure TForm1.Button1Click(Sender: TObject);<br />v
2010-12-17 11:13:00 447
原创 重载
<br />function MyFun(s: string): string; overload;<br />begin<br /> Result := '参数是一个字符串: ' + s;<br />end;<br /><br />function MyFun(i: Integer): string; overload;<br />begin<br /> Result := '参数是一个整数: ' + IntToStr(i);<br />end;<br /><br />function MyFun(x
2010-12-17 11:11:00 452
原创 指针参数
<br />{现在这个函数并没有 var 前缀, 也就是说参数应该不会被修改的} <br />function MyFun(p: PInteger): Integer; {PInteger 是 Integer 的指针类型}<br />begin<br /> p^ := p^ * 2;<br /> Result := p^;<br />end;<br /><br /><br />{测试}<br />procedure TForm1.Button1Click(Sender: TObject);<br />
2010-12-17 11:09:00 398
原创 参数前缀
<br />//要点11: 参数可以分为: 默认参数(传值)、var(传址)、out(输出)、const(常数)四类<br /><br />{默认参数是传值, 不会被改变}<br />function MyF1(x: Integer): Integer;<br />begin<br /> Inc(x);<br /> Result := x;<br />end;<br /><br />{var参数是传址, 会被改变}<br />function MyF2(var x: Integer): Integer;
2010-12-17 10:53:00 547
原创 认识类的多态
<br />什么是多态? 我的理解就是: 同样一个方法, 在不同的对象里会有不同的实现, 仅此而已. unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButto
2010-12-17 10:29:00 528
原创 delphi Ansistring wideString shortstring
<br />在Delphi中字符串类型为String,有ShortString, AnsiString, WideString三种<br /><br />类型 最大长度 占用内存<br />ShortString 255 2-256 向后兼容<br />AnsiString 大约2^31 4字节-2G 8位(ANSI)字符<br />WideString 大约2^30 4字节-2G
2010-12-16 15:09:00 3011
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人