- 好友
- 0
- 帖子
- 124731
- 積分
- 124889
- 最後登錄
- 2019-2-28
- 在線時間
- 0 小時
- 好友
- 0
- 帖子
- 124731
- 積分
- 124889
- 最後登錄
- 2019-2-28
- 在線時間
- 0 小時
|
<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">procedure TForm1.Button1Click(Sender: TObject);
MailingListRecord = record
FirstName : String;
LastName : String;
Address : String;
Ciy : String;
State : String;
Zip : Integer;
end;
var
MLRecord : TMailingListRecord;
begin
MLRecord.FirstName := 'Bruce';
MLRecord.LastName := 'Reisdorph';
MLRecord.Address := '123, XXX, NewYork';
MLRecord.City := 'New York';
MLRecord.State := 'NY';
MLRecord.Zip := '99999';
Label1.Caption := MLRecord.LastName;
end;
end.</code> |
|