- 博客(12)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 写代码的随想(3)
有这样的一个实例：所有的页面，或者说窗口，都是基于URL的，也就是说，POST，GET是其最基本的操作，我试图对其进行封装： TRootFrm=class(TForm) private proceudre SetUrl(const Valu
2011-10-03 21:09:41
366
原创 写代码的随想(2)
我所写的代码，大都只是控制软件，所用的内容不是很多，也谈不上使用什么思想去考虑问题。我也懒得去关注当今所流行的编程思想。但我发觉，不只是我不关心这些，专门从事软件开发的大多数人员，也没有关注这些，这让我迷惑。也许，这不是某一个人的错，而是我们这一代人的缺憾。 曾记得在哪
2011-10-03 20:29:32
399
原创 写代码的随想(1)
也许真该停下来考虑一下，为何要面向对象，为何面向对象能取代面向结构？在此之前的状态是怎样的？说老实话，delphi我只是用得久而已，并没有深入消化，哪怕是如TStrings这样的类都没有进行过深入的了解，想想真是对自己失望。为何我却不能清晰地说明我对于代码构建的理由。
2011-10-01 21:38:05
405
转载 Delphi Soap Header 的问题（来源于网络）
Delphi的SOAP Header问题1.Delphi给了一个SOAP Header的示例以下内容为程序代码: 4 2005-01-06T15:01:26.531Z 实现方法是:1.先定义一个TSOAPHeader的继承类，要在SOAP包中出现的字段以property方式出现
2011-06-15 12:57:00
2698
原创 我的LOG类
<br />经常在写代码时要记录一些信息，或者说LOG。为方便起见，做出以下的类供调用：<br /> <br />type TMy_Log=class(TObject) private FLog:TStrings; FLogFile:string; public constructor Create; destructor Destroy; override; procedure Save;virtual; procedure
2011-04-27 10:54:00
747
原创 delphi 中使用文件流
<br /> result:=''; if Trim(txt)='' then exit; txtList:=TStringList.Create; srcList:=TStringList.Create; srcList.Text:=src; st:=ExtractFileDir(FileName); //取执行目录 sFileName:=ExtractFil
2011-04-27 10:42:00
1135
转载 从文件夹中选中文件(网抄)
<br />uses Shellapi; //以便使用ShellExecute<br /> <br />function OpenAndSetFileSelected(const aFullExename: String): Boolean;<br />begin<br /> Result:= FileExists(aFullExename);<br /> if Result then<br /> ShellExecute(0, 'open', 'explorer.exe ', PChar('/s
2011-03-25 15:54:00
517
转载 固定电阻器的型号命名方法
<br />国产电阻器的型号命名由三部分或四部分组成，名部分的主要含义见表1。<br />表 1 国产电阻器的型号命名及含义<br />第一部分：<br />主称<br />第二部分：<br />电阻体材料<br />第三部分：类别或额定功率<br />第四部分：序号<br />字母<br />含义<br />字母<br />含义<br />数字或字母<br />含义<br />数字<br />额定功率<br />R<br />电阻器<br />C<br />沉积膜或高频瓷<br />1<br />普通<b
2011-03-15 10:20:00
1672
原创 SQL合并多行记录为一行(网抄文章)
<br />ifOBJECT_ID('[order]') isnotnull<br /> droptable[order]<br />go<br />createtable[order](order_uid int,order_no nvarchar(20),car_no nvarchar(20)) <br />go<br />ifOBJECT_ID('CNTR') isnotnull<br /> droptable CNTR<br />go<br />createtable CNTR(cn
2011-02-25 12:52:00
1218
原创 一直没有用好的TStrings
一直以来，给TStrings对象赋值时，通常使用以下的方式： aStrings:TStrings;aStrings:=TStringList.Create();aStrings.Text:='...'; 当我要求将TEXT转为多行时，通常以这种形式：
2011-02-11 15:23:00
785
原创 linux 0.11 引导代码
通讯了一次文档，并作了部分理解注释。本注释力图简洁，在阅读时，参考了网上的代码以增加理解。!! SYS_SIZE is the number of clicks (16 bytes) to be loaded.! 0x3000 is 0x30000 bytes = 196kB, more than enough for current! versions of linux !SYSSIZE = 0x3000 !! bootsect.s (C) 1991 Linus Torvald
2011-02-11 15:05:00
565
原创 复数与矢量的计算
这是我写一个与无线计算相关的小工具时而编写的代码，目的是为这完成矢量或复数的计算。同时，能完成矢量表达式：《模/相角》与《实数+i实数》这两种形式的自动转换。 代码使用delphi 7.0 完成。对于接口部分，是为了导出到其它环境中使用。方式可能不是最好，但目的我找不到更好的方式，权宜用着。unit my_complex;{$WARN SYMBOL_PLATFORM OFF}interfaceuses Windows, ActiveX, Classes, ComObj, my_typ_TLB, StdVc
2010-12-29 14:06:00
2777
RF无线计算与转换小工具
2010-11-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人