免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

出處:http://www.cnblogs.com/del/archive/2008/01/09/1031725.html

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class (TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
end ;

var
Form1: TForm1;

implementation

{$R *.dfm}

//如果要記錄一個(gè)人的姓名和年齡, 可以:
procedure TForm1.Button1Click(Sender: TObject);
var
name: string ;
age: Word;
begin
{賦值}
name := '張三';
age := 18;

{讀取}
ShowMessage(Format('%s今年%d歲', [name,age])); {張三今年18歲}
end ;


//不如定義一個(gè)結(jié)構(gòu)類型
procedure TForm1.Button2Click(Sender: TObject);
type
TPerson = record
    name: string [12]; {在結(jié)構(gòu)里面不能使用長字符串}
    age: Word;
end ;
var
person: TPerson;        {聲明結(jié)構(gòu)變量}
const
str = '%s今年%d歲';     {為格式化輸出準(zhǔn)備一個(gè)常量}
begin
{賦值}
person.name := '李四';
person.age := 81;

{讀取}
ShowMessage(Format(str, [person.name,person.age])); {李四今年81歲}
end ;

end .