delphi 控制台 输入输出
摘要:
program Project1;{$APPTYPE CONSOLE}uses SysUtils, Classes;type TFriend = record name: string[10]; age : integer; end; PFriend = ^TFriend;var FriendList : TList; FriendFileName: string; //const// LeftTop = '┛';// LeftBottom = '┓';//// Level = '━';//// RightBottom = '┏' 阅读全文
posted @ 2013-01-02 20:56 qkhhxkj 阅读(7668) 评论(0) 推荐(0) 编辑