Delphi 数组：变量 Myvar 可能未初始化

Question

我正在为学校（电影应用程序）开发一个程序，但我的阵列有问题。我的应用已关闭，但没有显示任何内容。

    program TFE;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  StrUtils,
  Crt;

var
  MovieList, MovieInfo: Text;
  Choice: Byte;
  i: Integer;
  L: String;
  S: array of String[14];

begin

i := 0
Assign(MovieInfo, 'MovieInfo.txt');
    Reset(MovieInfo);
Readln(Choice);
i := 0;
ClrScr;
    While not eof (MovieInfo) do                  
      begin
        Readln(MovieInfo, L);
        S[i] := L;
        i := i + 1;
      end;
Writeln(S[Choice]);
Readln;

end.

暂时是我的全部代码。 有人可以帮助我吗？

Answer 1

在标题中，您谈到了变量MyVar，但代码没有显示任何此类变量。为了将来参考，请在发布前仔细校对您的问题。

你已经声明了一个动态数组：

S: array of String[14];

即14个字符串（短字符串）的数组。但是你从来没有设置这个数组的长度，所以它根本不能保存任何字符串。

使用procedure SetLength(var S: <string or dynamic array>; NewLength: Integer); 为数组中的项目分配空间。

由于您不知道（我推测）文件中可能有多少部电影，您必须先分配一些数量，然后准备扩展数组（通过新调用 SetLength()）如果数组变为在从文件中读取所有电影之前填充。例如，初始化（在 while 循环之前）有 10 部电影的空间：

SetLength(S, 10);

然后在while循环中，例如就在ReadLn()之前，

if i > (Length(S)-1) then
  SetLength(S, Length(S)+10);

---

另一条评论是，当要求用户选择时，不会向用户显示任何提示，但也许这仍在开发中；-)

Answer 2

您收到的消息是正确的，因为您只使用 while not eof 循环内的数组。那时，编译器无法知道文件的内容。就他而言，它可能是空白的。如果文件确实是空白的，他将完全跳过while not eof 部分并直接进入数组写入部分。因为该数组从未被使用过，所以它没有定义的值，因此出现了这条消息。

解决方法很简单：用 0 初始化数组的值：

        program TFE;

        {$APPTYPE CONSOLE}

        uses
          SysUtils,
          StrUtils,
          Crt;

        var
          MovieList, MovieInfo: Text;
          Choice: Byte;
          i: Integer;
          L: String;
          S: array of String[14];

        begin

        SetLength(s,10); //10 is an example
        for i:=0 to Length(s) do
         s[i]:='';
        Assign(MovieInfo, 'MovieInfo.txt');
        Reset(MovieInfo);
        Readln(Choice);
        i := 0;
        ClrScr;
            While not eof (MovieInfo) do                  
              begin
                Readln(MovieInfo, L);
                S[i] := L;
                i := i + 1;
              end;
        Writeln(S[Choice]);
        Readln;       
        end.

深入研究您的代码，您定义了MovieList 和MovieInfo，但您只使用了MovieInfo。为什么？