Delphi隨機產生英文大小寫、數字

Delphi如何透過隨機的函數產生英文大寫、英文小寫以及數字呢?
方法很簡單

[pascal]
// 英文小寫
Randomize;
S := Chr(ord(‘a’) + Random(26));
[/pascal]

[pascal]
// 英文大寫
Randomize;
S := Chr(ord(‘A’) + Random(26));
[/pascal]

[pascal]
// 數字
Randomize;
S := Chr(ord(‘0’) + Random(10));
[/pascal]

吃晚餐學英文Learn English by Eating Dinner

蝦米?吃晚餐也能學英文?哈哈~真的是太無聊了!就把今天的晚餐以英文分享~
如有錯誤,歡迎指正。

鹹鴨蛋(Salted duck egg) Salted duck egg

雞酒(Chicken wine)

Chicken wine

Chicken wine

豆皮炒芹菜(Fried dried bean curd with celery) Fried dried bean curd with celery

炒甜不辣(fried tempura) Tempura

茴香湯(dill soup) dill soup

香煎虱目魚(fried milk fish)

無標題

fried milk fish