DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡ ①
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡ ②
发布代码
发布控件
文档资料
经典工具
≡事务区≡ ③
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入： lixuan123
今日帖子： 0
在线用户： 4
导航： 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者：
男 shenquan (小烟) ★☆☆☆☆ -
普通会员
2008/12/17 11:47:11
标题：
如何学习DELPHI，如何学习DELPHI。NET，如何成为一个DELPHI大师。 浏览:2463
加入我的收藏
楼主：     经常看一些讨论DELPHI2009新特性的文章，用了DELPHI7年多了，但是每每感觉自己还是个门外汉。技术总是在突飞猛进总，总会感觉到迷茫。很想循序渐进，脚踏实地的成为一名DELPHI大师，请有经验的前辈们能给出成功的学习方法，推荐一些很好的教材，特别是DELPHI。NET方面的，先谢了！
----------------------------------------------
渴望DELPHI高手境界！
作者：
男 ivvn (奔腾的心) ★☆☆☆☆ -
普通会员
2008/12/17 16:21:56
1楼： delphi已死

c++才是王理

c++并不难
----------------------------------------------
-
作者：
男 stgzs (阿呆) ★☆☆☆☆ -
盒子活跃会员
2008/12/17 17:38:04
2楼：
推荐二本书给你，你要是看懂，并且能运用自如保证你走的不是寻常路。

基础会比一般开始就在按键下面写程序的人，扎实些。

这条路可能是数组都没用过，但是能体会到代码艺术呢。

刘艺的 面向对象编程 和 模式设计  二本都是蓝色的封面。
----------------------------------------------
你好，我是阿呆
作者：
女 yudehui (yudehui) ★☆☆☆☆ -
盒子活跃会员
2008/12/17 18:46:04
3楼： 刘艺的书是垃圾
看侯捷的深入浅出MFC对你会很有帮助
尽管不是delphi
但是学习了会对你非常有帮助
不知道书店还有卖没有
网上有电子版本的
----------------------------------------------
-
作者：
男 hzpp (dphp2) ★☆☆☆☆ -
普通会员
2008/12/17 19:58:56
4楼： 怎么扯上MFC了
----------------------------------------------
-
作者：
男 ufo2003 (ufo) ★☆☆☆☆ -
普通会员
2008/12/17 20:54:34
5楼： 建议看李维的 inside vcl 和周爱民的delphi源代码分析。
当然，其他的windows内核编程这些也是必看的。
要想成为大师，那么cpu汇编这些底层的东西也是必不可少的。
另外，c，c++这些你不一定要会写，但至少要能看懂

学编程如同盖楼，基础不牢，如在沙筑塔
----------------------------------------------
delphi
作者：
男 19412008 (与月共舞) ★☆☆☆☆ -
盒子活跃会员
2008/12/17 22:30:36
6楼： to  yudehui (yudehui):
    我很关注你啊，想看看你也制造点垃圾出来，如果你连刘艺的那种垃圾都制造不出来，那你自己去想想吧......
----------------------------------------------
作者：
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2008/12/18 4:31:37
7楼： 不用花钱买书，将C:\Program Files\Borland\Delphi7\Source这个文件夹，所有文件弄明白，你就是大师的师傅了。
----------------------------------------------
声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我..
作者：
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2008/12/18 4:33:04
8楼： 顺便说一句，先把Forms.pas弄明白，也是略有所成了
----------------------------------------------
声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我..
作者：
男 wr960204 (武稀松) ★☆☆☆☆ -
盒子活跃会员
2008/12/18 9:00:31
9楼： 先看VCL的源代码.这是一个宝库
然后建议看建议看李维的 inside vcl 和周爱民的delphi源代码分析.
之后根据你理想的发展方向看一些相关方面的书籍.

Delphi高手不少,能称得上Delphi大师有几个?
----------------------------------------------
武稀松http://www.raysoftware.cn
作者：
男 shenquan (小烟) ★☆☆☆☆ -
普通会员
2008/12/18 15:04:04
10楼： 正在看《DELPHI面向对象编程》，看完后，写个总结发上来
----------------------------------------------
渴望DELPHI高手境界！
作者：
男 shenquan (小烟) ★☆☆☆☆ -
普通会员
2008/12/18 15:05:59
11楼： kinneng (kinneng)或许你是对的，但是现在DELPHI已经出到2009了，如果兄弟们一直都还停留在7，那总归是要被J2EE和.NET所淹没。
----------------------------------------------
渴望DELPHI高手境界！
作者：
男 yxsoft (yxsoft) ★☆☆☆☆ -
盒子活跃会员
2008/12/18 15:59:48
12楼： 1，面向对象的思想一定要掌握
2，所谓的新技术够用就好
3，所谓底层不在于cpu/汇编/Windows内核
4，遇到实际问题就查资料，譬如MSDN，也可以来盒子问
5，Delphi是生活的一部分
你就是大牛
----------------------------------------------
Great!
作者：
男 stgzs (阿呆) ★☆☆☆☆ -
盒子活跃会员
2008/12/22 12:54:41
13楼： yudehui 

刘艺的书是垃圾,说话要负责呢。


刘艺的书，偏向于思想，不会带来任何技术方面的提升。

思想这东西，有点象蓦然回首，就是以前的她的感觉。

而且思想是越简单越好。

我发一段代码，这段是用来保存系统参数的，

也就是在一个软件里面的系统配置参数。说白了就是保存参数到Ini文件里面。

代码很简单，但是好处多多，看懂的跟帖说有什么好处。是如何让代码跟用户界面

分离的，这些都是刘艺的书里面说到的。

unit UConfigFile;

interface

uses
  IniFiles,USysClass;

type


  TConfigFile = class(TObject)
  private
    FConfigFile:String;
    FSysParameter: TSysParameter;
  public
    constructor Create;
    destructor Destroy; override;

    procedure Save;
    procedure Load;

    procedure LoadSettings(Ini: TIniFile);
    procedure SaveSettings(Ini: TIniFile);
    
    procedure LoadFromFile(const FileName: string);
    procedure SaveToFile(const FileName: string);


    property  SysParameter:TSysParameter read FSysParameter write FSysParameter;


  end;

implementation


uses
  Dialogs, SysUtils;


constructor TConfigFile.Create;
begin

  inherited Create;

  FConfigFile:=Format('%s%s',[ExtractFilePath(ParamStr(0)),'Config.ini']);

end;

destructor TConfigFile.Destroy;
begin

  FSysParameter:=nil;

  inherited;
  
end;

procedure TConfigFile.Save;
begin

  Self.SaveToFile(FConfigFile);

end;

procedure TConfigFile.Load;
begin

  Self.LoadFromFile(FConfigFile);

end;

procedure TConfigFile.LoadSettings(Ini: TIniFile);
begin

  if Ini <> nil then
  begin

    if Assigned(FSysParameter) then
    begin
      FSysParameter.ImeName:=Ini.ReadString('Com','ImeName','');
      FSysParameter.CloseToTray:=Ini.ReadBool('Com','CloseToTray',False);
    end;

  end;

end;



procedure TConfigFile.SaveSettings(Ini: TIniFile);
begin

  if Ini <> nil then
  begin

    if Assigned(FSysParameter) then
    begin
      Ini.WriteString('Com', 'ImeName', FSysParameter.ImeName);
      Ini.WriteBool('Com','CloseToTray',FSysParameter.closeToTray);

    end;

  end;

end;

procedure TConfigFile.LoadFromFile(const FileName: string);
var
  Ini: TIniFile;
begin

  if FileExists(FileName) then
  begin
    Ini := TIniFile.Create(FileName);
    try
      LoadSettings(Ini);
    finally
      Ini.Free;
    end;
  end;

end;

procedure TConfigFile.SaveToFile(const FileName: string);
var
  Ini: TIniFile;
begin

  Ini := TIniFile.Create(FileName);
  try
    SaveSettings(Ini);
  finally
    Ini.Free;
  end;

end;

end.


unit USysClass;

interface

uses
  Classes;


type



  TSysParameter = class(TPersistent)
  private

    FImeName: String;
    FCloseToTray: Boolean;

    FEditTips: Boolean;
    FDelTips: Boolean;
    FAddTips: Boolean;

  public

    constructor Create;
    procedure Assign(Source: TPersistent); override;
    procedure InitProperty;

    property ImeName:String read FImeName write FImeName;
    property  CloseToTray:Boolean read FCloseToTray write FCloseToTray;

    property AddTips:Boolean read FAddTips write FAddTips;
    property EditTips:Boolean read FEditTips write FEditTips;
    property DelTips:Boolean read FDelTips write FDelTips;

  end;

implementation

{ TSysParameter }

constructor TSysParameter.Create;
begin

  inherited;

  InitProperty;

end;

procedure TSysParameter.Assign(Source: TPersistent);
var
  SysPar:TSysParameter;
begin

  if not (Source is TSysParameter) then
    Exit;

  SysPar:=(Source as TSysParameter);

  ImeName:=SysPar.ImeName;

  CloseToTray:=SysPar.CloseToTray;

  DelTips:=True;

  EditTips:=True;

  AddTips:=True;

end;

procedure TSysParameter.InitProperty;
begin

  FImeName:='中文 (简体) - 智能 ABC';

  CloseToTray:=False;

  FDelTips:=True;

  FEditTips:=True;

  FAddTips:=True;


end;

end.
----------------------------------------------
你好，我是阿呆
作者：
男 please_air (please_air) ★☆☆☆☆ -
普通会员
2008/12/22 17:18:05
14楼： 万恶的对象
----------------------------------------------
----------
短信群发 http://www.188sms.cn
家校通 http://www.studjxt.cn
网站建设 http://www.51zwz.net
----------
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS