一个菜鸟问题：想将函数过程单独放在一个.pas中，应该怎么作？

Question

不用键form
如下：
unit stdata;interfaceuses
   //这里填要用的单元function myfun(....):integer;implementation
function myfun(....):integer;
begin
 //my code;
end;然后在别的form或者单元（uint）中uses 这个单元就可以
比如
//this code is unit2:uint uint2interfaceuses
//单元...implementation
//在这里引用你的函数单元
uses stdata;

Answer 1

新建一单元，然后在里面写就好了
如果想用里面的function的话就uses这个单元

Answer 2

添加一个unit;许需调用该函数的unit;引用该单元即可
unit Server;interface
uses
  Windows, Classes, stdctrls,  mmsystem, Sysutils, SynthParam, IniFiles;
function ServerStart: boolean;
implementation
uses ThreadTts;
var
  Pconnect:PTTSConnectStruct;
  ThdTts:array of TtsServer;
  oHInstance:array of Tts
function ServerStart: boolean;
var
  i: integer;
  fini: TInifile;
  ServiceCount:integer;
  p:pointer;
  tmpParam:string;
begin
  ；；；；；
end;
end.

Answer 3

把form中的type部分的内容去掉就可以了