Q&A

  • 클래스에서 함수 처리
안녕하세요..델파이와 프로그래밍의 초보입니다.

다음과 같이 실수들의 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값은 어떻게 하는지 알고싶습니다.
실행은 제대로 되는데 다음과 같은 경고가 뜨는게 맘에 걸리네요. 책을 찾아봐도 해결책을 잘 모르겠구요.

여러분들의 도움을 바랍니다.
0  COMMENTS