pascal对类型的要求是苛的,你必须先如此: 先声明数组类型 type TMyarray = array[1..2] of double; 然后函数声明如下: function fun(TempStr: string): TMyarray;
//将它声明一个类型就可以了,Delphi帮助里有。D5编译通过。 Type TDoubleArray = array[1..2] of Double; var Form1: TForm1; function fun(TempStr: string): TDoubleArray;implementation{$R *.DFM}function fun(TempStr: string): TDoubleArray; beginend;
不好意思,极菜问题: Type TDoubleArray = array[1..2] of Double;应该放在哪里?
Type TDoubleArray = array[1..2] of Double; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;除了这种办法,也可以通过回传参数的办法:function fun(TempStr: string; var MyArray: array[1..2] of Double): TMyarray;————————————————————————————————— 宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。 —————————————————————————————————
应该时: procedure fun(TempStr: string; var MyArray: array[1..2] of Double); ————————————————————————————————— 宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风
先声明数组类型
type
TMyarray = array[1..2] of double;
然后函数声明如下:
function fun(TempStr: string): TMyarray;
Type
TDoubleArray = array[1..2] of Double;
var
Form1: TForm1;
function fun(TempStr: string): TDoubleArray;implementation{$R *.DFM}function fun(TempStr: string): TDoubleArray;
beginend;
Type
TDoubleArray = array[1..2] of Double;应该放在哪里?
TDoubleArray = array[1..2] of Double;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;除了这种办法,也可以通过回传参数的办法:function fun(TempStr: string; var MyArray: array[1..2] of Double): TMyarray;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
procedure fun(TempStr: string; var MyArray: array[1..2] of Double); —————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风