Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[8778] [질문]클래스에서의 함수처리
박강 [] 620 읽음    2003-04-27 21:55
안녕하세요..델파이와 프로그래밍의 초보입니다.

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

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

+ -

관련 글 리스트
8778 [질문]클래스에서의 함수처리 박강 620 2003/04/27
8779     Re:[질문]클래스에서의 함수처리 류종택 684 2003/04/28
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.