pascal - 将文本文件读入 PASCAL 中的数组

Question

我有一个文本文件“text.txt”，其中包含

48 42

我正在尝试读取文本文件并将其分配到数组中。之后，我尝试将数字分配给 num1 和 num2 变量。

以下是我现在所拥有的。出于某种原因，它不使用数组索引分配数字。

program tutorial15;
  var
    infile, outfile: text;
    inputchar: char;
    num1: integer;
    num2: integer;
  begin
    assign(infile, 'text.txt');
    reset(infile);
    while not eof(infile) do
      begin
        while not eoln(infile) do
          begin
            read(infile, inputchar);
          end;
          num1 := inputchar[0];
          num2 := inputchar[1];
      end;
    writeln('Number1: ', num1);
    writeln('Number2: ', num2);
  end.

我是 Pascal 的新手，请告诉我我能做些什么来解决这个问题！

标签： pascalfreepascal

Answer 1

program readtoarray;
var
        f: TextFile;
        i: Integer;
        a: array [0..1] of Integer;
begin
        assign(f, 'text.txt');
        reset(f);
        i := 0;
        while not eof(f) do begin
                read(f, a[i]);
                inc(i);
        end;
        close(f);
        for i := 0 to 1 do writeln('Number', i+1, ': ', a[i])
end.