project1.dpr

对于学习很有帮助

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  MateInfo=Record
  name:string;
  age:integer;
end;

var
  i,j,innum:integer;
  num:array[1..9,1..9] of integer;
  filevar:TextFile;
  mi:MateInfo;



begin
  begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('---------请输入数字（1-2）：');
  Writeln('---------1表示对record类型数据进行存储：');
  Writeln('---------2表示存储数组变量:');
  Repeat
  ReadLn(innum);
    Case innum of
    1: begin
      mi.name:='jpchen';
      mi.age:=23;
  //    Assignfile(filevar,ExtractFilePath(Paramstr(0))+'record.txt');
      WriteLn(mi.name);
      WriteLn(mi.age);
       // append(filevar);
      //  WriteLn(filevar,mi.name);
      //  WriteLn(filevar,IntToStr(mi.age));
       // closefile(filevar);
      end;

    2:begin
      for i:=1 to 9 do
        for j:=0 to 9 do
          begin
            num[i,j]:=i*j;
            WriteLn(' ',num[i,j]);

         //   AssignFile(filevar,ExtractFilePath(Paramstr(0))+'array.txt');
         //   append(filevar);
        //    WriteLn(filevar,IntToStr(num[i,j]));
         //   closefile(filevar);
          end;
          WriteLn('Hello');
      end
    else
      WriteLn('----------输入出错，退出程序------------');
      ReadLn;
    end

    until (innum>2) or (innum<1);

  end;
end.