안녕하세요..델파이와 프로그래밍의 초보입니다.
다음과 같이 실수들의 array와 그 갯수를 field로 갖는 클래스를 만들었습니다.
---------------------------------------
unit MLvector;
interface
uses SysUtils,classes;
type
Lvector=class(TPersistent)
private
element:array of real;
dimension:integer;
public
constructor Create(vsize:integer);
{constructor Create(ele:array of real);override;}
Destructor Destory;
procedure InsertElement(valr:real; locat:integer);
function GetElement(ind:integer):real;
function GetNorm():real;
procedure Normalize();
procedure PrintVec();
procedure DeleteElement(ind:integer);
end;
function AddVector(first,second:Lvector):Lvector;
function SubVector(first,second:Lvector):Lvector;
function dotVector(first,second:Lvector):real;
....................
function AddVector(first,second:Lvector):Lvector;
var
I:integer;
begin
if (first.dimension)=(second.dimension) then
begin
Result.dimension:=first.dimension;
for I:=0 to first.dimension do
begin
Result.element[i]:=first.element[i]+second.element[i];
end;
end
else
exit;
end;
---------------------------------------------------
이것을 컴파일하면 다음과 같은 메시지가 뜨는데요..
Warning: Return value of function 'AddVector' might be undefined
보통 클래스의 맴버를 참조하는 함수를 만들어 쓸때 return값은 어떻게 하는지 알고싶습니다.
실행은 제대로 되는데 다음과 같은 경고가 뜨는게 맘에 걸리네요. 책을 찾아봐도 해결책을 잘 모르겠구요.
여러분들의 도움을 바랍니다.