多人开发一个类,如何分文件操作呢(50分)

  • 主题发起人 主题发起人 soniczzzz
  • 开始时间 开始时间
S

soniczzzz

Unregistered / Unconfirmed
GUEST, unregistred user!
如果Delphi开发一个类,随着开发过程,需要向这个类加入新的代码,用Vss更新到代码服务器。如果不同的人都想向找个类写入代码而不是独占这个类的开发权。有没有可以象VC那样一个类分为多个文件同时写呢。如何实现?谢谢
 
怎么没人回答呢?? 很难吗?:(
 
有VSS应该可以做到这点吧?!
 
问题是vss一次只有一个人check out啊 如何把类的不同方法的实现放在不同的unit里面呢? 这样可以多人开发一个类啊
 
不知这样能否满足:

主unit文件中没有代码,只有代码框架,具体代码由各个程序员写在自己的文件中,用{$I}引入,比如有三个程序员,A、B、C:

unit OurUnit;

interface

uses
{$I A_uses.inc}
{$I B_uses.inc}
{$I C_uses.inc};

const
{$I A_const.inc}
{$I B_const.inc}
{$I C_const.inc}

type
TOurClass = class
{$I A.inc}
{$I B.inc}
{$I C.inc}
private
{$I A_private.inc}
{$I B_private.inc}
{$I C_private.inc}
protected
{$I A_protected.inc}
{$I B_protected.inc}
{$I C_protected.inc}
public
{$I A_public.inc}
{$I B_public.inc}
{$I C_public.inc}
published
{$I A_published.inc}
{$I B_published.inc}
{$I C_published.inc}
end;

implementation

{$I A_implementation.inc}
{$I B_implementation.inc}
{$I C_implementation.inc}

end.

引用、常量、类定义、实现的代码方便放在 ?_uses.inc、?_const.inc、?.inc、?_private.inc、?_protected.inc、?_public.inc、?_published.inc、?_implementation.inc文件中,其中?是各程序员的代号,这一组文件组合起来就是个完整的unit,各个程序员可独立编写各自负责的部分,只要保证自己的代码没有问题,最后编译就不会出问题。
 
不过可能还要细化一下,变量不能定义在过程、属性之后,所以,可能还要把
private
{$I A_private.inc}
{$I B_private.inc}
{$I C_private.inc}
细分成
private
{$I A_private_var.inc}
{$I B_private_var.inc}
{$I C_private_var.inc}

{$I A_private.inc}
{$I B_private.inc}
{$I C_private.inc}

各inc文件就相当于是把完整的文件拆开,比如

A_private.inc内容是:
procedure GetFixCol;
procedure SetADOC;
procedure SaveColCodition;
procedure ReadColCodition;

那么{$I A_implementation.inc}的内容就应该是:
procedure TOurClass.GetFixCol;
begin
end;

procedure TOurClass.SetADOC;
begin
end;

procedure TOurClass.SaveColCodition;
begin
end;

procedure TOurClass.ReadColCodition;
begin
end;
 
还要再制定一下命名规范,这样就不会冲突了,调试的时候把自己的文件checkout到本地,就可以调试自己的代码了,写完了checkin自己的代码。
 
后退
顶部