請問: 若一Function中, const Map: array['A'..'Z'] of Integer = (10, 11, 12, 13, 14, 15, 16, 17, 34, 18, 19, 20, 21, 22, 35, 23, 24, 25, 26, 27, 28, 29, 32, 30, 31, 33); 知道Map[A]為10, 但要如何反推回去呢? 如11為"B"? 先謝謝各位大大了...

ASCII code of 'A' is 65, 'B' is 66.... So Map: array['A'..'Z'] of Integer = Map: array[65..90] of Integer Relative index of 11 in the array is 1 so Low(Map) 1 = 65 1 = 66 = 'B' 發表人 - william 於 2003/03/28 17:11:04

SI(11)回傳值為'B';    

function SI(SearchStr: Integer): String;
const
  a = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i: Integer;
begin
  Result := '';
  For i := 1 to Length(a) do
  begin
    If SearchStr = Map[a[i]] then
    begin
      Result := a[i];
      break;
    end;
  end;
end;

Map['A'] 為 10 chr( Map['A'] 55) 為'A'

Hi, 試試看:    

procedure TForm1.Button1Click(Sender: TObject);
  const
    Map: array['A'..'Z'] of Integer = (10, 11, 12, 13, 14, 15, 16, 17,
    34, 18, 19, 20, 21, 22,
    35, 23, 24, 25, 26, 27, 28, 29,
    32, 30, 31, 33);
  function findelement(val: integer): char;
  var
    i: char;
  begin
    Result := ' ';
    for i := low(Map) to high(Map) do
      if Map[i] = val then
      begin
        Result := i;
        break;
      end;        
  end;
begin
  showmessage(findelement(11));
end;