集思广益，共建开放源码库!(0分)

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #21

to DNChen
货正在发送，Wait for moment!

 

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #22

Jams:
今天我给你发了一个
dlltest.zip
appFunc.zip
注意查收!

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #23

to zx
你的appFunc已收到，并将修改内容发给你了，请查收！
此外，现有一问题，请说明：
DirList := TStringList.Create;
的作用。因在你的程序中，均与给定的串(路径、文件名)打交道，不知你用此句
的目的？

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #24

挺热闹。
既然都要公布源码，干吗做成Dll, 多此一举。
在Delphi中 Uses unit就行了.

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #25

我看还是先 组织人力翻译一遍C++中的STL,先学习学习人家的先进思路，再动手做也不迟。
这种东西都是设计远比实现重要。

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #26

yysun,你的练功场是否可以开放了，老用E-MAIL传来传去，就只有
几个人知道，大家都放到练功场不是挺好的吗

 

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #27

DirList是当前目录下子目录的列表
findfile3用他带回返回值!
还有!
Jams :
想起来了,在findfile变为
var
Save_Cursor:TCursor;
begin
Save_Cursor := Screen.Cursor;
Screen.Cursor := crHourglass;
{ Show hourglass cursor }
try
{do
findfile operation }
finally
Screen.Cursor := Save_Cursor;
{ Always restore to normal }
end;
end;

谢谢!

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #28

使用Uses固然很好，但Uses中不可能就一个过程/函数吧？那么多的例程管你是否
用的着，都统统纳入你的程序中；而Dll则可以用到哪个，调哪个，节省了系统资源，
正因为此，故才使用Dll。
另：
入力：(日)输入
出力：(日)输出,
抱歉使用了这些令人疑惑的语句，习惯了！

 

D

DNChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #29

james，偷偷告诉你，我还是没有收到你的信，8-(
不过我觉得用dll的方法，不是很舒服，是不是考虑换个方法呢？

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #30

to DNChen
给你的E-mail都给退回了，干脆你给我来个E-mail如何？
此外，你还有何好的办法？

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #31

好象没有人觉得用Dll方便, 并且还有人不会调用Dll中的函数,
你能给个在pascal中调用dll的示范吗?

 

D

DNChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #32

在#delphi里找不到你，没办法，我等会儿给你去信。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #33

to SeaKey
你是否考我？这对你来说还不是轻车熟路，信手拈来吗！可不要象某些人那样趾高
气扬，瞧不起人呢！
刚从ZX那儿学的，在Implement后加:
function IncLinePos(IncLineStr: String):Integer;
Far;
External 'AppFunc.Dll';
Procedrue ReverseStr(ReverseS: String);
Far;
External 'appfunc.Dll';
请指正。
to DNChen
点击"来自Jams"就能得到本人的E-mail地址了。

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #34

你试过了吗?

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #35

appFunc.Dll已纳入程序当中，运行无误，岂能有假！
信则有，不信则无。全凭个人,本人并不强求。但还望个位多多提供小算法，不断
完善，不断丰富。

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #36

参数类型

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #37

[例]
....
If OpenDialog1.Execte then
begin
p := IncLinePos(OpenDialog1.FileName);
ShowMessage(IntToStr(p));
end;
........
to Seakey
我想函数/过程的调用你不该不会吧！?否则何以称得江湖老手呢！

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #38

我是说你的参数类型不匹配, String 不是Pchar .

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #39

我是说你的参数类型不匹配, 你在Dll中定义的参数类型是Pchar . 外部调用用
String能行吗 ?

 

Z

zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #40

大家看来意见不少,
其实我想作成DLL也有他的好处
动态调用，比较节省资源,而且
DLL只不过是一种技术，有原代
码，如果谁想写成pas,也很容
易自己改的吗!
其实最重要的一点是函数的必要性
，合理性以及编程水平.这才是我
一直担心的,但是后来我想通了!
其实不论我们写出来的东西有没有
实用价值,是不是让人笑掉大牙,其实
都不重要,也许最大的价值是,抛砖引
玉,大家有好的构思,好的建议，好的
程序,都可以拿出来,(自己觉得好就可
以).关键是参与,锻炼.等到真的发展
到完善的时候，肯定会有用的!
Jams你说对吗?