子範圍聲明的問題

Question

我試圖做到這一點，所以一旦輸入不同的文本形狀將改變顏色，但它說（'A''Z'）是'期望'的問題，但收到一個字符串文字''一個'' '。我不知道如何解決它。任何幫助表示感謝，謝謝！

type 
    TCapitalLetter = ('A' .. 'Z'); //subrange of type char 
    TDigit = ('0' .. '9'); //subrage of type char 

Answer 1

你的定義是接近的，但它並不完全正確：

type 
    TCapitalLetter = 'A'..'Z'; 
    TDigit = '0'..9'; 

從您的其他問題，但是，我不認爲這就是你真正需要做的。您正在尋找會員資格（某些字符包含在該類型中），在這種情況下，您需要使用集合來完成。這是一個控制檯應用程序你可以編譯和測試：

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

type 
    TCapitalLetters = TSysCharSet; 
    TDigits = TSysCharSet; 

const 
    CapitalLetters: TCapitalLetters = ['A'..'Z']; 
    Digits: TDigits = ['0'..'9']; 

var 
    Temp, Output: string; 
    Ch: Char; 

begin 
    Output := ''; 
    Temp := 'Seems A Nice Test Answer'; 
    for Ch in Temp do 
    if CharInSet(Ch, CapitalLetters) then 
     Output := Output + Ch; 

    WriteLn(Output); 
    ReadLn; 
end. 

對於德爾福的早期（非Unicode）的版本，你需要使用set of Char代替TSysCharSet，並使用一個稍微不同的語法爲集合成員：

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

type 
    TCapitalLetters = set of Char; 
    TDigits = set of Char; 

const 
    CapitalLetters: TCapitalLetters = ['A'..'Z']; 
    Digits: TDigits = ['0'..'9']; 

var 
    Temp, Output: string; 
    Ch: Char; 

begin 
    Output := ''; 
    Temp := 'Seems A Nice Test Answer'; 
    for Ch in Temp do 
    if Ch in CapitalLetters then 
     Output := Output + Ch; 

    WriteLn(Output); 
    ReadLn; 
end. 

輸出測試應用程式：