Delphi-基础（常量、集合、数组[动态数组、多维数组]）

一、常量

　　1、常量定义:一开始定义好的值，以后在程序的运行过程中不允许改变

 const
   Pi : Double = 3.141592;   //定义为常量
   {常量的定义方式，可以不进行类型的声明，编译器会根据具体值决定常量的的类型}
   Pi2 = 3.1415;

2、常量使用　　

　　枚举：常量集
　　type
　　枚举名=(标识符1，标识符2，标识符3，......)

 type
   {正常情况下，枚举类型的索引是从0开始}
   EColors = (RED,GREEN,BLUE);
   EWeek = (SUN=,MON=,TUE=,WED=,THU=,FRI=,SAT=);
 var
   Color : EColors;
   Week : EWeek;

 begin
   Color := EColors.RED;
   Week := EWeek.SUN;
   Writeln(Ord(Color),',',Ord(Week));
   REDln;
 end.

二、子界

　　使用：为了防治出现越界
　　注意事项:
　　1、子界要求上界和下界必须是有序的数据类型 整数、字符、枚举
　　2、子界的上界大于或者等于下界

　　格式：type 子界

 {定义格式}
 type
   {枚举}
   EColors = (RED,GREEN,BLUE);
   {子界}
   TSubBoundNumber = ..;
   TSubBoundChar = 'a'..'z';

 begin
   Writeln(Low(TSubBoundNumber)); //下界
   Writeln(High(TSubBoundChar));  //上界
   REDln;
 end.

打印出闰年还是平年，每个月的天数和所属季节

 {打印出闰年还是平年，每个月的天数和所属季节}
 type
   {子界}
   TSubBoundMonths = ..;
   {枚举}
   ESeason = (Spring,Summer,Autumn,Winter);

 var
   Season : ESeason;
   Month : TSubBoundMonths;
   User_Year:Integer;
   Is_Leap_Year:Boolean;
   User_Month : Integer;

 procedure SubBound();
 begin
   Writeln('请输入一个年份：');
   REDln(User_Year);
   {默认为闰年}
   Is_Leap_Year := True;
   while Is_Leap_Year do
   begin
     if (User_Year mod ) =  then begin
     if not((User_Year mod ) = ) then begin
       Writeln('闰年',User_Year);
       Is_Leap_Year := False;
     end;
   end;
   if (User_Year mod ) =  then begin
     Writeln('闰年',User_Year);
     Is_Leap_Year := False;
   end
   else begin
     Is_Leap_Year := False;
     Writeln('平年',User_Year)

   end;
   end;

 end;
 procedure Months();
 begin
   {季节}
 Writeln('请输入一个月份：');
 REDln(User_Month);
 begin
   if (User_Month >= Low(TSubBoundMonths)) and (User_Month <= High(TSubBoundMonths)) then
     if (User_Month >= ) and (User_Month <= ) then begin
       Writeln('当前季节为春季');
       case User_Month of
          : begin
               Writeln('31天');
             end;
          : begin
               if Is_Leap_Year then  begin
               Writeln('29天');
               end else begin
                 Writeln('28天');
               end;
             end;
          : begin
               Writeln('31天');
             end;
       end;
     end;

 end;
 end;

 begin
 //  Writeln(Low(TSubBoundNumber)); //下界
 //  Writeln(High(TSubBoundChar));  //上界

   SubBound();
   Months();
   REDln;
 end.

三、集合

集合是由具有某些共同特征的元素结构的一个整体。在pascal中，一个集合是由一有序类型的一组数据元素组成，者一有序类型成为该集合的而基本类型。

集合定义：

 type
 <类型名称>=set of<基类型>;

声明集合的变量（可使用集合类型的名称来声明，也直接利用集合类型的本身来声明）

 Var
 Vset1:set1;
 Vset2:set of byte;

注意：
1、一个集合类型的所有成员必须是同一有序类型且最多包含256个成员。
2、集合类型具有唯一性，即同一集合类型中不允许包含相同的成员。
3、集合类型成员具有无序性，其中的成员没有序数。无法向枚举型一样用序数标识集合成员。
4、集合类型的值域由BaseType 的值域决定。

集合定义方式

 {定义方式}
 type  {type主要作用是让用户可以自定义类型}
   TMySet = set of Char;
   TMySet1 = set of 'a'..'z';
 var
   TMySet2 : set of  'a'..'z';

集合示例

 uses
   System.SysUtils,System.TypInfo;

 type
   {定义一个枚举}
   TColors = (RED,GREEN,BLUE);
 type
   TSetColors = set of TColors;
 var
   sc : TSetColors;
   indexs : Integer;
 procedure set_test1;
 begin
   for indexs := Ord(Low(TColors)) to Ord(High(TColors)) do begin

     Writeln(GetEnumName(TypeInfo(TColors),indexs)) //显示枚举内信息
   end;

 end;
 begin
   {遍历集合元素：无序的}
   set_test1();
   Readln;
 end.

四、数组

数组：按照一定编号存放了一堆类型相同数据的容器

定义
array[indexType1, ..., indexTypen] of baseType;

注意事项
1、数组在使用之前必须要声明长度（下标、元素总数）

 type   {定义变量}
   MyArray = array[..] of Char;
 var   {变量声明}
   NameArray : MyArray;
   Indexs : Integer;

 {静态数组元素遍历}
 procedure MyProc;
 begin
   NameArray[] := 'a';
   NameArray[] := 'b';
   NameArray[] := 'c';
   NameArray[] := 'd';
   for Indexs := Low(NameArray) to High(NameArray) do begin
       Writeln(NameArray[Indexs]);  //屏幕输出
   end;

 end;

 type
   TMyFlexibleArray = array[..] of Char;
 var
   TMyArray : TMyFlexibleArray;
   Elem : Char;  //与数组类型保持一致
 procedure MyProc1;
 begin
   TMyArray[] := 'a';
   TMyArray[] := 'b';
   TMyArray[] := 'c';
   TMyArray[] := 'd';
   for Elem in TMyArray do   //取数组里面的元素
   begin
     Writeln(Elem); //输出数组中的具体元素
   end;
   Writeln(Length(TMyArray)); //取数组最大可用数（可用元素）

 end;

 begin
 //  MyProc();
   MyProc1();
   Readln;
 end.

五、动态数组

 {动态数组}
 type
   StringArray = array of string;
 var
   NArray : StringArray;
   NameArray1 : StringArray;
   Indexs1 : Integer;
   Elem1 : string;

 procedure Dynamic_MyProc1;
 begin
   SetLength(NArray,); //设置长度，并未创建元素

   NameArray1 := StringArray.Create('xiaoqian','xiaoming');  //创建数组，设置长度
   NameArray1 := ['xiaoming','xiaoyang','xioaogang'];  ////创建数组，设置长度
 //  Writeln(Length(NArray),',',Low(NArray));
   Writeln(Length(NameArray1),',',Low(NameArray1));
   {遍历1数组 for to }
   for Indexs1 := Low(NameArray1) to High(NameArray1) do  begin
     Writeln(NameArray1[Indexs1]);
   end;
   {遍历2数组 for in}
   for Elem1 in NameArray1 do
   begin
     Writeln(Elem1);
   end;
 end;

 begin

   Dynamic_MyProc1();
   Readln;
 end.

 {动态数组2}
 type
   StringArray1 = array of string;
 var
   NameArray2 : StringArray1;
   AddressArray : StringArray1;
   DataArray : StringArray1;
   DataArray1: StringArray1;
   Name : string;
   Indexs2 :Integer;
   NameArray3 : StringArray1;

 procedure Dynamic_MyProc2;
 begin
   NameArray2 := ['北京','南京','天津'];
   AddressArray := ['林志玲','萧蔷'];
   {Concat 连接连个数组}
   DataArray := Concat(NameArray2,AddressArray);

   {拷贝数组,High(DataArray1),Copy含头不含尾}
   for Name in DataArray do begin
 //    Writeln(Name)     //北京 南京 天津 林志玲 萧蔷
   end;

   DataArray1 := Copy(DataArray,Low(DataArray),High(DataArray));
   for Indexs2 := Low(DataArray1) to Length(DataArray1) do begin
 //    Writeln(DataArray1[Indexs2])     //北京 南京 天津 林志玲 萧蔷
   end;

   {Insert插入}
    NameArray3 := ['',''];   //等待插入的数据
   Insert(NameArray3,DataArray,);
   for Name in DataArray do begin
 //    Writeln(Name)     //北京 南京 天津 林志玲 萧蔷  11 22
   end;

   {Delete删除}
    Delete(DataArray,Length(DataArray)-,Length(DataArray));
   for Name in DataArray do begin
       Writeln(Name)     //北京 南京 天津 林志玲 萧蔷
   end;

 end;

 begin

   Dynamic_MyProc2();
   Readln;
 end.

六、多维数组

 {多维数组：1、静态多维数组 2、动态多维数组}
 type
 {声明一个动态的二位数组}
   TStringDynamicArray2 = array of array of string;
 {声明一个静态二维数组}
   TStringStaticArray3 = array[..] of array[..] of string;
 var
   TDynamicNameArray : TStringDynamicArray2;
   TStaticArray : TStringStaticArray3;
   I,J : Integer;
 {初始化动态二位数组}
 procedure TStringDynamic_Array2;
 begin
   TDynamicNameArray := [['张三','李四','王五'],['成都','重庆','西安']];
   {遍历二维数组}
   for I := Low(TDynamicNameArray) to High(TDynamicNameArray) do begin
     for J := Low(TDynamicNameArray[I]) to High(TDynamicNameArray[I]) do begin
       Writeln(TDynamicNameArray[I][J]);
     end;

   end;

   Writeln(TDynamicNameArray[][]);
 end;

 {初始化静态二位数组}
 procedure TStringStatic_Array3;
 begin
   TStaticArray[][] := '开心麻花';
    for I := Low(TStaticArray) to High(TStaticArray) do begin
     for J := Low(TStaticArray[I]) to High(TStaticArray[I]) do begin
       Writeln(TStaticArray[I][J]);
     end;

   end;
 end;

 begin
 //  TStringDynamic_Array2();
   TStringStatic_Array3();
   Readln;
 end.

七、基础练习

 type
   {定义一个学生的信息的记录类型}
   TStudent = record
     Id: string; //学号
     Name: string; //姓名
   end;

 {数组存储信息}
 TStudentList = array of TStudent;
 var
   Student: TStudent;
   Studentlist : TStudentList;

 {查看菜单}
 procedure ShowMemo();
 begin
   Writeln('');
   Writeln('*****Memo*****');
   Writeln('1、增加');
   Writeln('2、查询');
   Writeln('3、修改');
   Writeln('4、删除');
   Writeln('');
 end;

 {添加用户信息}
 procedure AddStudent();
 var
   UserName : string;
   ArrayLength : Integer;
   Uuid:TGUID;   //生成一个唯一标识
 begin
   Writeln('您选择了增加功能，请输入学生姓名');
   Readln(UserName);
   Student.Name := UserName;
   ArrayLength := Length(Studentlist);
   CreateGUID(Uuid);
   Student.Id := GUIDToString(Uuid);
 //  Writeln(GUIDToString(Uuid));   //输出Uuid 信息

   Insert(Student,Studentlist,ArrayLength-); //添加
   if (Length(Studentlist)>ArrayLength) then begin
     Writeln('添加成功！');   //输出Uuid 信息
   end else begin
     Writeln('添加失败');
   end;

 end;

 {查询用户信息}
 procedure SelectStudent();
 var
   Student1 : TStudent;
 begin
   Writeln('您选择了查询功能，查询结果如下：');
   for Student1 in Studentlist do begin
     with Student1 do begin
       Writeln('姓名:',Name,#$,'编号:',Id);
     end;
   end;
 end;

 {删除用户信息}
  procedure DeleteStudent();
 var
 Student2 : TStudent;
 DelUserName : string;
 IsTrue : string;
 Indexs : Integer;
 ArrayLength : Integer;
 begin
   Writeln('您选择了删除功能，请输出删除名字');
   Readln(DelUserName);
   Indexs := ;
   {获取删除之前的数据总和}
   ArrayLength := Length(Studentlist);
   for Student2 in Studentlist do begin
     with Student2 do begin
       if (DelUserName=Name) then begin
         {删除操作需要谨慎，需要用户二次确认}
         Writeln('您确认删除',Name,',',Id,'信息吗？Y/N');
         Readln(IsTrue);
         if (IsTrue = 'Y') then begin
           Delete(Studentlist,Indexs,);
         {删除后,比对元素总数，判断是否成功}
           if (Length(Studentlist) > ArrayLength) then begin
             Writeln('删除成功');
           end
           else begin
             Writeln('删除!');
           end;
         end;
         Exit;
       end;
     end;
     Inc(Indexs);  //每次增加1
   end;
 end;

 {更新/修改}
 procedure UpdateUser();
 var
   Uname : string;
   I : Integer;
   IsExist : Boolean;
 begin
   IsExist := False; {默认不存在这条信息}
   Writeln('您选择了修改功能,请输出需要的用户姓名：');
   Readln(Uname);
   {遍历数组，查询需要修改的数据}
   for I := Low(Studentlist) to High(Studentlist) do begin
     with Studentlist[I] do begin
       if (Uname = Name) then begin
         Writeln('请输出新的名字');
         Readln(Uname); //重新给Uanme 赋值
         Name := Uname;
         IsExist := True;
         Break;
       end;
     end;
   end;
   if (IsExist = False) then begin
   Writeln('此信息不存在');
   end;
 end;

 {用户选择功能}
 procedure UserChoose();
 var
   UserChooseIndex: Integer;
 begin
   Writeln('请输入你的功能选项：');
   {获取用户输入编号}
   Readln(UserChooseIndex);
   {判断用户输入编号}
   case UserChooseIndex of
     :
       begin
         AddStudent();
       end;
     :
       begin
         SelectStudent();
       end;
     :
       begin
         UpdateUser();
       end;
     :
       begin
         DeleteStudent();
       end;

   else
     begin
       Writeln('请输出正确的功能编号');
     end;
   end;
 end;

 begin
 {初始化学生信息列表}
 Studentlist := [];
 {无限循环}
   while True do
   begin
     ShowMemo();
     UserChoose();
   end;
   Readln;
 end.