Rückgabewert der Funktion könnte

Question

Ok undefiniert sein, ich habe die folgende Funktion:

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

Der Compiler generiert die folgende Warnung vor dieser Zeile:

[DCC Warnung] W1035 Rückgabewert der Funktion ‚GetRTFDescription 'könnte undefined sein

Irgendwelche Ideen, wie ich diese Warnung aufklären kann? (außer es nur Drehen in den Projektoptionen aus)

Ich habe versucht:

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

Aber das funktioniert auch nicht.

Answer 1

Die Variable wird standardmäßig nicht initialisiert. Es bezieht sich nicht automatisch auf eine vom Compiler generierte Instanz TStringList. Sie müssen Result einen Wert zuweisen. Das bedeutet eine Zeile wie diese irgendwo in Ihrem Code mit:

Result := ...; 

Ein Ausdruck wie Result.X ist der Wert Result, um das Lesen einen Verweis auf seine X Mitglied zu bekommen, so dass Sie Result gegeben haben brauchen eine Wert bereits. Larry's answer demonstriert, wie man das macht. Es generiert eine neueTStringList Instanz, so dass der Aufrufer dieser Funktion irgendwann Free für dieses Objekt aufrufen muss.

Aber in einem Kommentar erwähnen Sie, dass Sie diese Funktion als Eigenschaft Accessor verwenden. Es ist unangenehm für Anrufer, Objekte jedes Mal freizugeben, wenn sie eine Eigenschaft lesen, so dass Ihr gesamter Plan unangemessen ist. Da es aussieht wie du bist versuchen, den Beschreibungstext zu belichten, können Sie diese stattdessen berücksichtigen:

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

Hinweis zuerst, dass ich die Rückkehr Typ TStrings geändert haben, die im Wesentlichen die abstrakte Basisklasse ist alle Arten von String-Listen in der VCL. TStringList ist ein Nachkomme, aber TRichEdit.Lines verwendet TStringList nicht. Stattdessen verwendet es einen speziellen TStrings Nachkommen, der mit dem zugrunde liegenden Rich-Edit-Steuerelement interagieren kann.

Als nächstes beachten Sie, dass ich keine neuen Objekte erstellt habe. Stattdessen habe ich einen Verweis direkt auf die Eigenschaft Lines des Steuerelements zurückgegeben. Benutzer Ihrer RTFDescription-Eigenschaft müssen sich nicht mehr darum kümmern, das Objekt zu befreien, das sie erhalten.

Answer 2

Der Compiler ist korrekt. Das Ergebnis wird standardmäßig nicht initialisiert. Versuchen

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

Update: Nachdem die Kommentare bewerten ich das ursprüngliche Plakat tatsächlich glauben, so etwas wie dies wünscht.

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

Answer 3

Ich stimme zu, dass die Rückkehr einer einfachen String wahrscheinlich die beste Lösung wäre, oder zumindest wird es freundlich zu bedienen sein.

Alternativ können Sie den Verweis auf die TStringList zurückkehren, die die schnellste Lösung, wenn Sie viel Text sind mit ..

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