一、整数类型
类型     所占字节数    取值范围
byte         1          0-255
word         2          0-65535
shortint     1          -128-127
smallint     2   

//最常用的 string
var
str: string;   {定义}
begin
str := '万一';

   下面的是一個菜單事件,雖然可以寫成一個函數,但是,我懶得整理.相信看的人也應該都會的啊...是吧?

procedure TForm1.SaveToEx1Click(Sender: TObject);
var
   ExcelApp,xlSheet : Variant;
   i,j: integer;
   FileNM : string;
begin
   try
     ExcelApp :

-------------------------------stream转string-------------------------------

汉字与 Unicode 转换

function Str_Gb2UniCode(text: string): String;
var
i,len: Integer;
cur: Integer;
t: String;
ws: WideString;
begin
Result := '';
ws := text;
len := Length(ws);
i := 1;
while i <= len do