請問能否將三個字符賦值給一變量??

Question

請問能否將三個字符賦值給一變量,我的意思大概如以下代碼,但是編譯不通的,請問大家怎麼做有這樣的效果?
var
i:char;
begin
for i:='a','c','d' do
showmesage(i);
end;

Answer 1

var
i:Integer;begin
  for i:= Ord('a') to Ord('d') do
  showmesage(Char(i));
end

Answer 2

NO!
我要的是三個不連續的字符,如:'A','K','Y'賦值給一變量.
可行嗎?

Answer 3

var
i:Integer;begin
  for i:= 1 to 1000 do
  case i of
    ord('A'): showmesage('A');
    ord('C'): showmesage('c');
    ord('H'): showmesage('h');
    ord('K'): showmesage('k');
    ...
  end;
end

Answer 4

var
  I: Integer;
  A: array [0..2] of Char;
begin
  A[0] := 'a';
  A[1] := 'c';
  A[2] := 'd';
  for I := 0 to 2 do ShowMessage(A[I]);
end;
显然，这里的0和2只是举例，你可以根据需要设置。