delphi case 语句中使用字符串.docxVIP

delphi delphi cas语e 句中使用字符串 非常遗憾 Delphi 非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量; 如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Ra