面向对象程序设计c++介绍.ppt

面向对象开发 韩宏 procedure AddPhoneInfoItem; var PhoneInfo: TPhoneInfo; begin MainForm.FPhoneInfoList.Length := MainForm.FPhoneInfoList.Length + 1; PhoneInfo.Name := MainForm.Edit_Name.Text; PhoneInfo.Phone := MainForm.Edit_Phone.Text; MainForm.FPhoneInfoList.Items[MainForm.FPhoneInfoList.Length - 1] := PhoneInfo; MainForm.Memo_Phone.Lines.Add(PhoneInfo.Name); MainForm.Memo_Phone.Lines.Add(PhoneInfo.Phone); end; function GetDefaultPhoneFullFileName: String; begin Result := ExtractFilePath(Application.ExeName) + _DefaultPhoneNoteFile; end; function GetInfoFileFromNoteFile(NoteFileName: