Delphi: возвращаемое значение может быть неопределенным, несмотря на установку его после начала

Question

Может кто-нибудь сказать мне, почему я получаю "Возвращаемое значение ... может быть неопределенным" здесь:

function TXMLAcceptorBCOLSubmission.createRecordsInBCFEEPAR(AXML: TRipXMLElement): String;
var
  ...
begin
  Result := '';

Answer 1

Я использую Delphi 5 и похоже, что проблема вызвана объявлением более 30 переменных (я знаю, я знаю).Кажется, не имеет значения, как они называются или какими они являются.

Answer 2

Следующий код не генерирует предупреждение с использованием Delphi 5, поэтому

• либо это ошибка в другой версии Delphi (следует указать версию, которую вы используете)
• или это то, что вы нам еще не показали.

Код

program ProveAPoint;
{$APPTYPE CONSOLE}
uses SysUtils;

type
  TRipXMLElement = record
  end;
  TXMLAcceptorBCOLSubmission = class
  public
    function createRecordsInBCFEEPAR(AXML: TRipXMLElement): string;
  end;

function TXMLAcceptorBCOLSubmission.createRecordsInBCFEEPAR(AXML: TRipXMLElement): String;
begin
  Result := '';
end;

var
  AXML: TRipXMLElement;
begin
  with TXMLAcceptorBCOLSubmission.Create do
  begin
     createRecordsInBCFEEPAR(AXML);
     Free;
  end;
end.