如果是一个很大的程序,把所有函数都写在一个文件里,以后查看太乱了。
解决方案 »
- 如何使DateTimePicker1可以同时显示日期和时间????
- 散分~~~~~
- 在delphi中怎么实现对SQL的数据库中视图进行插入新的数据
- Delphi6中如何用OLE将SqlServer2000中保存的Word文件打开,修改后如何回存?
- 奇怪的SQL错误?
- 如何在delphi中实现oracle中dev用户下面所有表的纪录清空?? 怎么不能用spool语句?
- 高手请进!(在线等候,立即送分)
- 100多个Client,在IdTCPServer的OnExecute中如何用TADOConnection连接SQL SERVER后保存数据?每个客户端Thread 构造一个TADOConnection吗?
- 这个是怎么回师?
- 怎么这样也不行,我快疯了!求帮!
- 我有两个表 结构完全一样的 用什么方法能快速的把表1 的数据 尽快的导入表2中?顶也给分 我加了参数
- 推荐一本Delphi的web编程的书籍,另外,有个web问题
内容:
unit File1
interface
function fun1: boolean;
implementation
function fun1:boolean
begin end;
end;文件2:File2.pas
内容:
unit File2
interface
uses
uses File1;
implementation
//可以使用fun1了
end;
[Error] Unit1.pas(23): Declaration expected but 'USES' found
内容:
unit File2
interface
implementation
uses
uses File1; //可以使用fun1了
end;
'abcd'
再建一个文本文件,叫File2.txt,内容为
function a:string;
begin
result := 'efgh';
end;然后写如下语句
procedure TForm1.Button1Click(Sender: TObject);
{$I 'File2.txt'}
begin
ShowMessage({$I 'File1.txt'});
ShowMessage(a);
end;编译运行......HOHO
内容:
unit File1; //<<<<-----注意这里
interface
function fun1: boolean;
implementation
function fun1:boolean
begin end;
end;文件2:File2.pas
内容:
unit File2; //<<<<-----注意这里
interface
uses
uses File1;
implementation
//可以使用fun1了
end;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations } public
{ Public declarations }
end;var
Form1: TForm1;uses
uses lib;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
close();
end;procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
b:TStrings;
i:integer;
begin
a := 'aaa,bbb,ccc,ddd';
b := Split(a,',');
for i:=0 to b.Count-1 do
ShowMessage(b.Strings[i]);end;
end.
----------------------------------------------
unit lib;interface
function Split(source,str:string):TStringS;
implementationfunction Split(source,str:string):TStringS;
var
list: TStrings;
begin
source := 'aa,bb,ccc,dddddd';
list := TStringList.Create;
list.Delimiter := ',';
list.DelimitedText := source;
Result := list
end;
end.
关键词Unit 后面的名字必须与存盘文件名一致
例如
Unit Common;
存盘文件必须为Common.pas
然后 Uses Common;就可以了。
但是运行的时候提示[Error] Unit1.pas(8): Identifier expected but 'USES' found