求delphi高手帮忙！

[computer_li]

delphi转C# ，本人不懂delphi，当初学得pascal已经都还给老师了，希望高手帮忙，指导一下个别语法就行。
QQ:2262739565

[wzjin1222]

代码呢？

[五哥]

看完问题 ，我也在找代码

[李_军]

估计忘记贴了

[computer_li]

 if ASQL[n2] in [' ', ',', #13, #10, '(', ')', '=', '+', '-', '*', '/'] then
        if EqStr(GetAWordFromImd(ASQL, n2 + 1), 'case') then
        begin
          Inc(st2);
        //  inc(c1);
        end
        else
        if EqStr(GetAWordFromImd(ASQL, n2 + 1), 'end') then
        begin
         // showmessage(inttostr(n2) + ' ' +ASQL[n2]);
          Dec(st2);
        //  inc(c2);
        end;

---------------------------------

while (not (ASQL[k] in [' ', ',', #13, #10, '(', ')', '=', '+', '-', '*', '/'])) and (k <= Length(ASQL)) do
    begin
      ssTemp := ssTemp + ASQL[k];
      Inc(k);
    end;

不明白in是什么东西

[funxu]

in 是判断你的char字符是否在[' ', ',', #13, #10, '(', ')', '=', '+', '-', '*', '/'] 这个区域里

[funxu]

LZ可以看看枚举