如何修改delphi程序的名称

打开D7，默认新工程project1

点“File”--》Save All

第一个默认是Unit1.pas， 第二个默认是project1.dpr，将这个改成其它的，如：abc.dpr

然后运行，你会看到工程名已经变成abc了

点“File”--》Save All

第一个默认是Unit1.pas， 第二个默认是project1.dpr，将这个改成其它的，如：XXX.dpr

然后运行，你会看到工程名已经变成XXX了，进程名也变了

兄弟用得着写吗？有现成的啊！

你在interface

uses 中引用 math 单元，然后调用MAX（A，B），其中有下面几种情况：

function Max(A,B: Integer): Integer

function Max(A,B: Int64): Int64

function Max(A,B: Single): Single

function Max(A,B: Double): Double

function Max(A,B: Extended): Extended

举个例子（先在窗体上放置3个EDIT组件和一个BUTTON组件，在单击BUTTON按钮事件写代码），全部代码为：

unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,math, GridsEh, DBGridEh

type

TForm1 = class(TForm)

Button1: TButton

Edit1: TEdit

Edit2: TEdit

Edit3: TEdit

DBGridEh1: TDBGridEh

procedure Button1Click(Sender: TObject)

private

{ Private declarations }

public

{ Public declarations }

end

var

Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject)

var m,A,B:integer

begin

A:=strtoint(trim(edit1.Text))

B:=strtoint(trim(edit2.Text))

m:=max(A,B)//调用MATH单元的比较函数

edit3.Text:=inttostr(m)//显示最大的一个数。

end

end.

---