반환 값은

Question

좋아 정의되지 않은 될 수있다, 나는 다음과 같은 기능을 가지고 :

function TfPackagedItemEdit.GetRTFDescription: TStringList; 
begin 
    Result.Text := richDescription.Lines.Text; //stringlist 
end; 

컴파일러 생성이 행에 대해 경고 다음

[DCC 경고] 기능의 W1035 반환 값 'GetRTFDescription '정의되지 않았을 수도 있습니다

이 경고를 어떻게 해결할 수 있는지에 대한 아이디어가 있습니까? 내가 해봤

를 (단지 프로젝트 옵션에서 전원을 끈 제외) :

function TfPackagedItemEdit.GetRTFDescription: TStringList; 
begin 
    Result.Text := ''; 
    Result.Text := richDescription.Lines.Text; 
end; 

하지만 그 중 하나가 작동하지 않습니다.

Answer 1

Result 변수는 기본적으로 초기화되지 않습니다. 컴파일러에서 생성 한 TStringList 인스턴스를 자동으로 참조하지는 않습니다. Result에 값을 지정해야합니다.

Result := ...; 

당신이 필요로하는, 그래서 그 X 멤버에 대한 참조를 얻을 수 위해 Result의 값을 읽는 Result.X입니다 같은 표현이 준하는 Result A : 그것은 당신의 코드에서이 곳과 같은 라인을 가진 의미 가치는 이미 있습니다. Larry's answer은이를 수행하는 방법을 보여줍니다. 새TStringList 인스턴스를 생성하므로이 함수의 호출자는 해당 객체에서 Free을 호출해야합니다.

그러나 주석에서이 함수를 속성 접근 자로 사용한다고 언급했습니다. 호출자가 부동산을 읽을 때마다 객체를 해제해야하는 것은 불편하므로 전체 계획이 부적절 할 수 있습니다. 당신이 설명 텍스트를 노출하려는 것 같습니다 때문에, 당신은 대신을 고려하는 것이 좋습니다 : 본질적으로의 추상 기본 클래스입니다 내가 TStrings에 반환 형식을 변경했습니다 먼저

function TfPackagedItemEdit.GetRTFDescription: TStrings; 
begin 
    Result := richDescription.Lines; 
end; 

공지 사항, VCL 전반에 걸친 모든 종류의 문자열 목록. TStringList은 하나의 하위 항목이지만 TRichEdit.Lines은 TStringList을 사용하지 않습니다. 대신 기본 Rich Edit 컨트롤과 상호 작용하는 방법을 알고있는 특수한 TStrings 하위 항목을 사용합니다.

다음으로 새 개체를 만들지 않았 음을 확인하십시오. 대신 컨트롤의 Lines 속성에 대한 참조를 직접 반환했습니다. RTFDescription 속성 사용자는 더 이상 객체를 확보 할 필요가 없습니다.

Answer 2

컴파일러가 정확합니다. 결과는 기본적으로 초기화되지 않습니다.

function TfPackagedItemEdit.GetRTFDescription: TStringList; 
begin 
    Result = TStringList.Create(); 
    Result.Text := richDescription.Lines.Text; 
end; 

업데이트를 시도해보십시오 를 나는 원래 포스터가 실제로 이런 일을하려고 생각 의견을 검토 한 후.

function TfPackagedItemEdit.GetRTFDescription: String; 
begin 
    Result := richDescription.Lines.Text; 
end; 

Answer 3

간단한 String을 반환하는 것이 가장 좋은 해결책 일 것입니다. 적어도 사용하기 쉽습니다.

양자 택일로, 당신은 ... 당신은 많은 텍스트가 발생하는 경우 가장 빠른 해결책이다 TStringList에 대한 참조를 반환 할 수

function TfPackagedItemEdit.GetRTFDescription: TStringList; 
begin 
    Result := richDescription.Lines; 
end;