BlogJava-有心就有翼有梦就会飞-文章分类-Delphi,C++

Delphi里删除目录的函数

有心就有翼有梦就会飞 — Thu, 05 Jan 2006 02:50:00 GMT

其实网上已经有很多的例子了，不过对于和我一样的初学者来说难免会遇到问题，我试过win32Api函数，也试过用removeDirectory，但都删不掉指定目录，分析了一下，很显然，是这些函数只是单纯的删除空文件夹，非空文件夹删不了的。也不知是不是我用的不对，总之用了下面这个函数挺灵的，帖出来大家分享下。

1function TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录
2var
3  search: TSearchRec;
4  ret: integer;
5  key: string;
6begin
7  if NowPath[Length(NowPath)] <> '\' then
8    NowPath := NowPath + '\';
9  key := Nowpath + '*.*';
10  ret := findFirst(key, faanyfile, search);
11  while ret = 0 do begin
12    if ((search.Attr and fadirectory) = faDirectory)
13      then begin
14      if (Search.Name <> '.') and (Search.name <> '..') then
15        DeleteDirectory(NowPath + Search.name);
16    end else begin
17      if ((search.attr and fadirectory) <> fadirectory) then begin
18        deletefile(NowPath + search.name);
19      end;
20    end;
21    ret := FindNext(search);
22  end;
23  findClose(search);
24  removedir(NowPath);
25  result := True;
26end;
27

有心就有翼有梦就会飞 2006-01-05 10:50 发表评论

Delphi里随机函数的应用

有心就有翼有梦就会飞 — Tue, 03 Jan 2006 14:48:00 GMT

在Delphi中，有一随机函数，是这样定义的：
function Random [ ( Range: Integer) ];
其中，参数Range为一整数，
该函数返回值其范围为：
0< =Random(Range)< Range   (指定Range)
0< =Random< 1   (不带参数Range)

下面的过程for循环里第一条语句：在屏幕上输出九九表内乘法的随机题；
第二条语句：在屏幕上输出一百以内的加法随机题。
稍加修改，增加一些条件语句你即可得到得减法、除法及四则混合运算的随机题。

 1procedure TForm1.Button1Click(Sender: TObject);
 2var
 3I: Integer;
 4begin
 5Randomize;
 6for I := 1 to 10 do begin
 7Canvas.TextOut(20,I*20,
 8IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
 9Canvas.TextOut(220,I*20, 
10IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
11end;
12end;
13

有心就有翼有梦就会飞 2006-01-03 22:48 发表评论

Delphi与FLASH通过SOCKET通信

有心就有翼有梦就会飞 — Wed, 21 Dec 2005 10:27:00 GMT

Delphi编写的服务器端代码（部分）：

1procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
2Socket: TCustomWinSocket);
3begin
4 Form1.Memo1.Lines.Add(Socket.ReceiveText);
5 Form1.ServerSocket1.Socket.Connections[0].SendText('OK!'+#0);
6end;
7
8procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
9Socket: TCustomWinSocket);
10begin
11 Form1.Memo1.Lines.Clear;
12end;
13
14procedure TForm1.ServerSocket1Accept(Sender: TObject;
15 Socket: TCustomWinSocket);
16begin
17 Form1.Memo1.Lines.Clear;
18 Form1.Memo1.Lines.Add('Connected');
19 Form1.ServerSocket1.Socket.Connections[0].SendText('OK!'+#0);
20end;
21
22procedure TForm1.FormCreate(Sender: TObject);
23begin
24 Form1.ShockwaveFlash1.Movie:= ExtractFilePath(Application.Exename)+'client.swf';
25end;

Flash实现客户端代码（部分）：

1var mySocket = new XMLSocket();
2//
3mySocket.connect("127.0.0.1", 3000);
4mySocket.onConnect = function(success) {
5    if (success) {
6        lists.text = "Connect Ok!";
7        //mySocket.send("guest");
8        Selection.setFocus(input_txt);
9    } else {
10        lists.text = "connect failed";
11    }
12};
13mySocket.onData = function(s) {
14    lists.text+=s;
15};
16mySocket.onClose=function(){
17    lists.text+="Server has been closed.";
18}
19//
20bn_send.onRelease = function() {
21    sendMsg(input_txt.text);
22};
23function sendMsg(str) {
24    mySocket.send(str);
25    input_txt.text = "";
26    Selection.setFocus(input_txt);
27}

源文件下载

有心就有翼有梦就会飞 2005-12-21 18:27 发表评论

Delphi获取完整路径

有心就有翼有梦就会飞 — Tue, 20 Dec 2005 15:17:00 GMT

Delphi 从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：

ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“\”
ExtractFileDir(FileName:String) 该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。　

样例代码：

　 ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp
　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\ 　　

有心就有翼有梦就会飞 2005-12-20 23:17 发表评论

成为编程高手的八大奥秘

有心就有翼有梦就会飞 — Sun, 12 Jun 2005 12:40:00 GMT

转载::文/《中国电脑教育报》张军

　　软件业在国内热了起来，程序员也抢手了，越来越多的人加入程序员行列。程序员的经历也是很多准程序员们急于想知道的，本文介绍了一个“过来人”的经验和感悟，或许对准程序员们有一定的启发。

　　不知不觉做软件已经做了十年，有成功的喜悦，也有失败的痛苦，但总不敢称自己是高手，因为和我心目中真正的高手们比起来，还差得太远。世界上并没有成为高手的捷径，但一些基本原则是可以遵循的。

　　1、扎实的基础

　　数据结构、离散数学、编译原理，这些是所有计算机科学的基础，如果不掌握它们，很难写出高水平的程序。程序人人都会写，但当你发现写到一定程度很难再提高的时候，就应该想想是不是要回过头来学学这些最基本的理论。不要一开始就去学OOP，即使你再精通OOP，遇到一些基本算法的时候可能也会束手无策。因此多读一些计算机基础理论方面的书籍是非常有必要的。

　　2、丰富的想像力

　　不要拘泥于固定的思维方式，遇到问题的时候要多想几种解决问题的方案，试试别人从没想过的方法。丰富的想像力是建立在丰富的知识的基础上，除计算机以外，多涉猎其他的学科，比如天文、物理、数学等等。开阔的思维对程序员来说很重要。

　　3、最简单的是最好的

　　这也许是所有科学都遵循的一条准则，复杂的质能转换原理在爱因斯坦眼里不过是一个简单得不能再简单的公式：E=mc2。简单的方法更容易被人理解，更容易实现，也更容易维护。遇到问题时要优先考虑最简单的方案，只有简单方案不能满足要求时再考虑复杂的方案。

　　4、不钻牛角尖

　　当你遇到障碍的时候，不妨暂时远离电脑，看看窗外的风景，听听轻音乐，和朋友聊聊天。当我遇到难题的时候会去玩游戏，当负责游戏的那部分大脑细胞极度亢奋的时候，负责编程的那部分大脑细胞就得到了充分的休息。当重新开始工作的时候，我会发现那些难题现在竟然可以迎刃而解。

　　5、对答案的渴求

　　人类自然科学的发展史就是一个渴求得到答案的过程，即使只能知道答案的一小部分也值得我们去付出。只要你坚定信念，一定要找到问题的答案，你才会付出精力去探索，即使最后没有得到答案，在过程中你也会学到很多东西。

　　6、多与别人交流

　　三人行必有我师，也许在一次和别人不经意的谈话中，就可以迸出灵感的火花。多上上网，看看别人对同一问题的看法，会给你很大的启发。

　　7、良好的编程风格

　　注意养成良好的习惯，代码的缩进编排，变量的命名规则要始终保持一致。大家都知道如何排除代码中错误，却往往忽视了对注释的排错。注释是程序的一个重要组成部分，它可以使你的代码更容易理解，而如果代码已经清楚地表达了你的思想，就不必再加注释了，如果注释和代码不一致，那就更加糟糕。

　　8、韧性和毅力

　　这也许是“高手”和一般程序员最大的区别。高手们并不是天才，他们是在无数个日日夜夜中磨炼出来的。成功能给我们带来无比的喜悦，但过程却是无比的枯燥乏味。你不妨做个测试，找个10000以内的素数表，把它们全都抄下来，然后再检查三遍，如果能够不间断地完成这一工作，你就可以满足这一条。