这个问题我会了,怎么撤消提问? ( 积分: 10 )

怎么将两个可以单独运行的工程合并成一个呢?
具体怎么做呢?[][][]

我会了啊,怎么撤消提问呢?

不能撤销。只能派分。

是啊，派我十分吧

弯弓哪有回头箭？

哪个问题，告诉我，我去回个贴，得个分！
如果可以的话，不就谁都会说：“这问题，我自己弄懂的，那些人的回帖没有帮助，我要撤销问题”

被人刷死!!以后谁帮你解决问题!!

分太少，没吸引力；
唉，今天做件好事算了。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBGrids, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if sender is TDBGrid then
begin
with TDBGrid(Sender) do
begin
if DataSource.DataSet.RecNo mod 2 =0 then
Canvas.Brush.Color:= clYellow
else
Canvas.Brush.Color:= clPurple;
DefaultDrawColumnCell(Rect,DataCol,column,state);
end;
end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ARow mod 2 = 0 then
StringGrid1.Canvas.Brush.Color:= clYellow
else
StringGrid1.Canvas.Brush.Color:= clPurple;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left,rect.Top,StringGrid1.Cells[acol,arow]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i,j: integer;
begin
StringGrid1.RowCount:= 5;
StringGrid1.ColCount:= 4;
for i:= 0 to StringGrid1.RowCount-1 do
for j:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[j,i]:= inttostr(i)+';'+inttostr(j);
end;

end.

接受答案了.