Question

delphi如何定义浮点类型的指针变量？

myfunction(a, b, c:Integer;L:^Double): Double;
begin
L := (0.16 * a + 0.58* b + 0.27 * c)/255;;
end;
这样写提示错误 改如何改正啊
to yeye55 我试了试 可还是不行啊
myfunction(a, b, c:Integer;L:^Double): Double;提示错误
Identifier expected but '^'found
怎么办

Answer 1

uses里面添加windows;
^Double改为PDouble;
L := 改为 L^ :=
myfunction(a, b, c:Integer;L:PDouble): Double;
begin
L^ := (0.16 * a + 0.58* b + 0.27 * c)/255;;
end;

Answer 2

myfunction(a, b, c:Integer;L:^Double): Double;
begin
L^ := (0.16 * a + 0.58* b + 0.27 * c)/255;;
end;