logo
  • 教程列表
  • SO官方文檔
  • 對於迴圈
    • 簡單的迴圈
    • 迴圈遍歷字串的字元
    • 迴圈的反向
    • For 迴圈使用列舉
    • 對於陣列
  1. StackOverflow 文件
  2. Embarcadero Delphi 教程
  3. 對於迴圈
  4. For 迴圈使用列舉

For 迴圈使用列舉

Created: November-22, 2018

for 迴圈遍歷列舉中的專案

program EnumLoop;

uses
  TypInfo;

type
  TWeekdays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);

var
  wd : TWeekdays;
begin

  for wd in TWeekdays do
    WriteLn(GetEnumName(TypeInfo(TWeekdays), Ord(wd)));

end.

輸出:

週日
週一
週二
週三
週四
週五
週六

  • 對於陣列
  • 迴圈的反向

Copyright © 2018. All right reserved

tastones.com 备案号:鲁ICP备18045372号-1

  • 關於本站
  • 免責聲明