- 博客(27)
- 收藏
- 关注
RSS订阅原创 Delphi文本和图形的打印
对于每一个Windows应用程序开发者来说,打印功能的实现都是极为棘手的,因为要涉及到相当多的代码,而且常常是相当复杂,但是在Delphi中实现文本和图像的打印功能却是非常容易的。 文本的打印功能 Delphi中文本的打印功能就如同在DOS中一样容易,需要做的只是取得打印参数,打开打印机,然后发送文本的每一行内容。在Delphi中提供了一个printers程序单元,它说明了一个tprin
2005-04-25 20:22:00
5443
转载 给大学生的十五条建议
苏霍姆林斯基摘自：华东师范大学出版社，《大学活叶文集》，第7辑（1998年12月版）[作者简介] 瓦西里?亚里山德罗维奇?苏霍姆林斯基（1918-1970），教育家，前苏联教育科学院通讯院士。著有《关于人的思考》、《公民的诞生》、《给教师的一百条建议》等。[题解] 正在上大学的儿子抱怨“一项工作紧逼着另一项工作，而一天却转瞬即逝，原定要做完的工作结果又没能完成”――这也正是多数不甘堕落到以混学
2005-04-22 16:03:00
1383
原创 复制/删除文件
http://www.cnblogs.com/walce/articles/139285.html链接以上可下载源程序在此不做详细介绍....
2005-04-17 21:29:00
1185
原创 Ttable相关程序
链接一下路径可下载源程序:http://www.cnblogs.com/walce/articles/139381.html具体操作将不做介绍....
2005-04-17 21:25:00
1082
原创 mp3................
Delphi 3.0是一个非常优秀的软件，利用它可很快地制作出一个简单的MP3音乐点歌台。 原理：制作一个MP3播放程序(本文以Winplay3为例)的外壳，建立中文歌曲名与MP3文件的关联，从而实现中文歌名的“点歌”。 步骤： 一、新建一个文件 创建一个新的工程(New Project)和空白窗体(Form1)，将Form1的Caption属性改为“我的点歌台”，在Form1中加入两个
2005-04-17 16:55:00
1095
2
转载 在edit中有选择的输入
if not(key in[0..9,#8]) then begin key:=#0; messagebeep(1); showmessage(密码只能为数字 ) end; ******************************************e:= (Sender as TEdit); //需要限制输入的控件可共享这段代码if not(k
2005-04-16 22:36:00
1023
原创 edit中只让输入数字跟相关符号
if not(key in[0..9,#8]) then begin key:=#0; messagebeep(1); showmessage(密码只能为数字 ) end; ******************************************e:= (Sender as TEdit); //需要限制输入的控件可共享这段代码if not(k
2005-04-16 22:32:00
1095
原创 DELPHI设计数据库查询的几种方法
DELPHI设计数据库查询的几种方法 DELPHI在设计数据库的查询方面真是太简单上手了，在实际运用中，本人归纳了以下几点，与大家共享。 （一） 过滤 （1） 一般过滤 DELPHI在设计数据库查询时使用的最简单最普遍的方法。在表的属性中（例如TABLE1），有FILTER属性，设置该属性值为要查询的条件，静态设置方法就是直接在该属性值后输入条件，如：XB=男 AND NL WITH TABL
2005-04-16 21:47:00
2560
原创 delphi菜单管理
菜单的设计,应该每个delphi人都觉得不是很难的一件事.只要点点点点,就ok的一件事,每本书上都有讲到这些,google和baidu都能找到很多资料..我本来想把自己做的,给传上来,但想到这个的简单度,也就不传了.
2005-04-16 14:46:00
1082
原创 手把手教你在ASP中使用SQL语句
五花八门的SQL产品多得要命，或许你早顾不得其它甩开袖子就动手干了。但你要同时采用ASP和SQL的话就可能会头晕。MySQL、SQL Server和mSQL都是绝佳的SQL工具，可惜，在ASP的环境下你却用不着它们来创建实用的SQL语句。不过，你可以利用自己掌握的Access知识以及相应的Access技能，再加上我们的提示和技巧，相信一定能成功地在你的ASP网页中加入SQL。1. SELECT
2005-04-13 22:51:00
1123
转载 如何才能成为一名真正的Web程序员
程序员可以分为很多种，像Unix程序员、Windows程序员，或是C++程序员、Delphi程序员，等等。今天我想谈的是Web程序员，一名真正的Web程序员应该懂得那些方面的知识，应该注意学习哪些东西。也许有些朋友会说，我知道Asp、Jsp，会做网站、会做bbs，这应该叫Web程序员了吧。确实，我承认，这些技术是一名Web程序员应该具备的；但是，你如果仅懂得这些，却只能叫做Asp程序员、Jsp程
2005-04-13 22:49:00
989
原创 关于学习ASP和编程的28个观点
1.不要放过任何一个看上去很简单的小编程问题——他们往往并不那么简单，或者可以引伸出很多知识点； 2.会用asp，并不说明你会asp； 转自：动态网制作指南 www.knowsky.com3.看asp的书，是学不了asp语言的； 4.浮躁的人容易说：asp语言不行了，应该学yy；——是你自己不行了吧！？ 5.浮躁的人容易问：我到底该学什么；——别问，学就对了； 6.浮躁的人容易问：asp有钱途吗
2005-04-13 22:41:00
1894
原创 使用ASP脚本技术
在VB脚本中，你不必定义变量或者象在其他脚本语言中明确的定义他们的类型。一个变量在你第一次使用的时候存在。但是，这个特性让你的代码广泛的存在打字稿中。如果你在代码中错误的定义一个变量名，那么一个新的变量将被创建。你的脚本可能不能正常的工作，而你也有可能不能意识到这个错误。转自：动态网制作指南 www.knowsky.com在你使用变量的时候，你要养成定义他们的习惯，你所需要做的就是测试D
2005-04-13 22:31:00
872
原创 在ASP中使用数据库
ASP有一个最重要的功能，就是它可以让你非常轻松地连接数据库。通常都是和一个Access或者一个SQL数据库相连。因为Access是最容易起步的，同时，在你的机器上也许已经都装有Access了，所以，在下面的例子中，我们都将使用Access来做例子。一旦你学习了ASP和Access数据库连接的核心技术方法，当你开始使用SQL server的时候，你就会发现，两者所需要的关键技术是基本相同
2005-04-13 22:22:00
1053
原创 通过启动脚本来感受ASP的力量
和大多数的语言脚本一样，学习ASP最好的方法就是亲身尝试ASP，使用你自己的系统安装PWS或者IIS。你可以边学习边在你自己的服务器上测试ASP组件和函数。为了方便学习，我们已经编译了一些操作脚本让你感受一下ASP的力量和灵活性并帮助你构建你的VBScripting字汇。转自：动态网制作指南 www.knowsky.com学习ASP你可以通过浏览其他网站的源代码来进行。事实上，你页面的A
2005-04-13 21:53:00
1053
原创 初学者必读 ASP运行环境的搭建
先选择操作系统。由于ASP属于MS（Microsoft）的东西，所以我们要选择MS的操作系统，Windows 98以上就可以（Windows Me和Windows XP Home不行）。 然后就是搭建个人WEB服务器（Personnel Web Serice），这就要根据操作系统来了。配置是这样的：Win98+PWS(personnel web serice)/Win2000 Pro+II
2005-04-13 21:37:00
1070
原创 如何逆操作（解密函数to加密函数）
函数如下Function DIP(str:string):string;varm,str1:string;asc,asc1:byte;i:integer;beginm:=asdfdghjvvvsd;for i:=1 to length(str) do begin asc:=ord(str[i]); asc:=asc and $F; asc1:=ord(m[i]); a
2005-04-12 19:17:00
1174
原创 如何将某文件夹下的指定扩展名的所有文件显示出来
例如：将c:/my music里的所有mp3文件的文件名添加到listbox里procedure TForm1.Button1Click(Sender: TObject);begin CreateDirTree(c:/my music/);end;procedure TForm1.CreateDirTree(path: string);var SR:TSearchRec; found
2005-04-12 18:47:00
1352
原创 如何将Delphi的字符串直接转成汉字?
能用程序把caption = #25511#21046#22120 转成 caption = 控制器吗？var lpStr : WideString;begin setlength(lpstr, 3); lpStr[1] := #25511; lpStr[2] := #21046; lpStr[3] := #22120; caption := lpstr;*************
2005-04-12 18:30:00
1311
原创 模拟delphi编辑窗体操作控件。。。
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;const LMouseDown=False;type TForm1 = class(TForm) Edit1: TEd
2005-04-12 14:45:00
1582
原创 随机数。。。
program suijishu;{$APPTYPE CONSOLE}var i,j,r,n,m:integer; All:array[0..1000] of integer;//这个数组用来装随机数的 Result:array[0..1000] of integer;//这个数组用来装结果的beginwriteln(请输入m，n，产生在n范围内的m个随机数);readln(m,n);
2005-04-10 21:07:00
759
原创 色板＋颜色字。。。
unit yanseU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;type TForm1 = class(TForm) Label1: TLabel;
2005-04-10 20:55:00
943
原创 计算器（加了个小数点）。。。
unit jisuanqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButt
2005-04-10 20:36:00
1116
原创 简易计算器。。。
unit jisuanqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButt
2005-04-10 20:30:00
871
原创 冒泡排序
PROGRAM bubble_sort;//冒泡排序CONST N = 10;VAR A : ARRAY[ 1..N ] OF INTEGER; T, I, J : INTEGER; FLAG :BOOLEAN;BEGIN WRITE( 输入10个整数: ); FOR I:= 1 TO N DO READ( A[I] ); READLN; WRITELN; I:=1; REPEAT FLAG
2005-04-10 10:29:00
763
原创 输出Fibonacci数列前40项
program Project2;{$APPTYPE CONSOLE}vara,b,c,i:integer;begini:=0;a:=1;b:=1;writeln(1);writeln(1);repeatc:=a+b;a:=b;b:=c;writeln(c);inc(i);until i>=38;readln;end.PROGRAM bubble_sort;{$apptype console}CO
2005-04-10 10:28:00
2493
原创 我的第一份上传作品。。请多多指教。。。（摇号器）
unit yaohaoqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;type TForm1 = class(TForm) Button1: TButton; SpinEdit1: TSpinEd
2005-04-10 09:56:00
1273
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人