程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 領域驅動設計實踐——流水號生成器(上)(3)

領域驅動設計實踐——流水號生成器(上)(3)

編輯:Delphi

再運行,Test Case通過!第一個任務完成了。注意上面代碼中的repeated,當流水號到了結束值時,應遞進更高位。

任務列表

支持可循環的數字序列('001’-'999’)

支持可循環的字母序列('A’-'Z’)

支持常量代碼('KA’)

支持字母序列和數字序列組合(KA001A001)

接下來我們分別實現字母序列和常量代碼流水號:

TTestLetterSerialNumberGenerator

1procedure TTestLetterSerialNumberGenerator.TestNextSerialNumber;
2var
3  letter: Char;
4begin
5  for letter :='A'to'Y'do
6  begin
7   CheckEquals(Chr(Ord(letter) +1), fGenerator.NextSerialNumber(letter));
8  end; 
9  CheckEquals('A', fGenerator.NextSerialNumber('Z'));
10end

任務列表

支持可循環的數字序列('001’-'999’)

支持可循環的字母序列('A’-'Z’)

支持常量代碼('KA’)

支持字母序列和數字序列組合(KA001A001)

TTestConstantCodeSerialNumberGenerator

1procedure TTestConstantCodeSerialNumberGenerator.TestNextSerialNumber;
2begin
3  CheckEquals('KA', fGenerator.NextSerialNumber('KA'));
4end

任務列表

支持可循環的數字序列('001’-'999’)

支持可循環的字母序列('A’-'Z’)

支持常量代碼('KA’)

支持字母序列和數字序列組合(KA001A001)

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved