亚洲日韩国产精品乱,亚洲中字慕日产2020,337p日本欧洲亚洲大胆裸体艺术

Delphi里删除目录的函数

Thu, 05 Jan 2006 02:50:00 GMT

其实�|�上已经有很多的例子了，不过对于和我一��L(f��ng)��初学者来说难免会(x��)遇到问题�Q�我试过win32Api函数�Q�也试过用removeDirectory�Q�但都删不掉指定目录�Q�分析了一下，很显�Ӟ��是这些函数只是单�U�的删除�I�文件夹�Q�非�I�文件夹删不了的。也不知是不是我用的不对�Q��M��用了下面�q�个函数挺灵的，帖出来大家分享下�?BR>

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

有心?y��u)��有�?有梦��׃��(x��)�?/a> 2006-01-05 10:50 发表评论

Delphi里随机函数的应用

Tue, 03 Jan 2006 14:48:00 GMT

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

下面的过�E�for循环里第一条语句：(x��)在屏�q�上输出�?ji��)�?ji��)表内乘法的随机题�Q?BR>�W�二条语句：(x��)在屏�q�上输出一百以内的加法随机题�?BR>�E�加修改�Q�增加一些条件语句你卛_��得到得减法、除法及(qi��ng)四则混合�q�算的随机题�?/FONT>

 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

有心?y��u)��有�?有梦��׃��(x��)�?/a> 2006-01-03 22:48 发表评论

Delphi与FLASH通过SOCKET通信

Wed, 21 Dec 2005 10:27:00 GMT

Delphi�~�写的服务器端代码（部分�Q�：(x��)

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实现客户端代码（部分�Q�：(x��)

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}

源文件下�?/A>

有心?y��u)��有�?有梦��׃��(x��)�?/a> 2005-12-21 18:27 发表评论

Delphi获取完整路径

Tue, 20 Dec 2005 15:17:00 GMT

Delphi 从文件名中得到�\径名�Q�可用下面的两个函数�Q�这两个函数有一点点微小的差别：(x��)

ExtractFilePath(FileName:String) 该函数返回�\径名�Q�其�l�尾字符��L��“\�?nbsp;
ExtractFileDir(FileName:String) 该函数同栯��回�\径名�Q�但不包括结��字符“\”，除非�q�回的�\径是根目录。　

样例代码�Q?BR>
　 ShowMessage(ExtractFileDir(Application.Exename)); // �? c:\temp
　　ShowMessage(ExtractFilePath(Application.Exename)); // �? c:\temp\ 　　

有心?y��u)��有�?有梦��׃��(x��)�?/a> 2005-12-20 23:17 发表评论

Sun, 12 Jun 2005 12:40:00 GMT

转蝲::�?《中国电(sh��)脑教育报》张�?nbsp;

　　软�g业在国内热了��h��Q�程序员也抢手了�Q�越来越多的人加入程序员行列。程序员的经历也是很多准�E�序员们急于想知道的�Q�本文介�l�了一个“过来�h”的�l�验和感�(zh��n)�，或许对准�E�序员们有一定的启发�?nbsp;

　　不知不觉做��Y件已�l�做了十�q�_(d��)��有成功的喜�?zh��n)��Q�也有失败的痛苦�Q�但��M��敢称自己是高手，因�ؓ(f��)和我心目中真正的高手们比��h��Q�还差得太远。世界上�q�没有成为高手的捷径�Q�但一些基本原则是可以遵��@的�?nbsp;

　　1、扎实的基础

　　数据�l�构、离散数学、编译原理，�q�些是所有计��机�U�学的基��Q�如果不掌握它们�Q�很隑ֆ�出高水��^的程序。程序�h人都�?x��)写�Q�但当你发现写到一定程度很隑ֆ�提高的时候，��应该想��x��不是要回�q�头来学学这些最基本的理论。不要一开始就��d��OOP�Q�即使你再精通OOP�Q�遇��C��些基本算法的时候可能也�?x��)束手无�{�。因此多��M��些计��机基础理论斚w��的书�c�是非常有必要的�?nbsp;

　　2、丰富的惛_��?nbsp;

　　不要拘惔于固定的思维方式�Q�遇到问题的时候要多想几种解决问题的方案，试试别�h从没惌��的方法。丰富的惛_��力是建立在丰富的知识的基��上，除计��机以外�Q�多涉猎其他的学�U�，比如天文、物理、数学等�{�。开阔的思维对程序员来说很重要�?nbsp;

　　3、最��单的是最好的

　　�q�也许是所有科学都遵��@的一条准则，复杂的质能�{换原理在爱因斯坦眼里不过是一个简单得不能再简单的公式�Q�E=mc2。简单的�Ҏ(gu��)��更容易被人理解，更容易实玎ͼ�也更�Ҏ(gu��)��l�护。遇到问题时要优先考虑最��单的�Ҏ(gu��)��Q�只有简单方案不能满��求时再考虑复杂的方案�?nbsp;

　　4、不�ȝ��角尖

　　当你遇到障碍的时候，不妨暂时�q�离�?sh��)脑�Q�看看窗外的风景�Q�听听轻音乐�Q�和朋友聊聊天。当我遇到难题的时候会(x��)�ȝ��游戏�Q�当负责游戏的那部分大脑�l�胞(y��u)极度亢奋的时候，负责�~�程的那部分大脑�l�胞(y��u)��得��C��充分的休息。当重新开始工作的时候，我会(x��)发现那些��N��现在竟然可以�q�刃而解�?nbsp;

　　5、对�{�案的��(f��)�?nbsp;

　　人类自然�U�学的发展史��是一个��(f��)求得到答案的�q�程�Q�即使只能知道答案的一��部分也值得我们��M��出。只要你坚定信念�Q�一定要扑ֈ�问题的答案，你才�?x��)付出精力去探烦�Q�即使最后没有得到答案，在过�E�中你也�?x��)学到很多东�ѝ�?nbsp;

　　6、多与别��Z��?nbsp;

　　三�h行必有我师，也许在一�ơ和别�h不经意的谈话中，��可以迸出灵感的火花。多上上�|�，看看别�h对同一问题的看法，�?x��)给你很大的启发�?nbsp;

　　7、良好的�~�程风格

　　注意��L��良好的习(f��n)惯，代码的羃�q�编排，变量的命名规则要始终保持一致。大安��知道如何排除代码中错误，却往往忽视了对注释的排错。注释是�E�序的一个重要组成部分，它可以��你的代码更容易理解，而如果代码已�l�清楚地表达了你的思想�Q�就不必再加注释了，如果注释和代码不一��_(d��)��那就更加�p�糕�?nbsp;

　　8、韧性和毅力

　　�q�也许是“高手”和一般程序员最大的区别。高手们�q�不是天才，他们是在无数个日日夜夜中��炼出来的。成功能�l�我们带来无比的喜�?zh��n)��Q�但�q�程却是无比的枯燥乏呟뀂你不妨做个��试�Q�找�?0000以内的素数表�Q�把它们全都抄下来，然后再检查三遍，如果能够不间断地完成�q�一工作�Q�你��可以满��一条�?BR>

有心?y��u)��有�?有梦��׃��(x��)�?/a> 2005-06-12 20:40 发表评论