创建国际大都市真的有必要吗

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/daduzimama/article/details/52052953

广上北深,真的能够推进社会的发展吗?真的能够增加生活在哪里的居民的幸福感吗?

在我看来,越大的城市越冷血,越大的城市斗争越激烈,越大的城市背井离乡,无家可归的人越多,越大的城市越不利于教育,科研。


还我河山!

还我绿水青山,碧海蓝天!


展开阅读全文

设置CLASSPATH环境变量真的必要吗?

04-24

看到很多介绍Java运行环境的文章,都说到ClassPath环境变量的设置。而且每每遇到如java.lang.NoClassDefFoundError的错误,一般也都归结为ClassPath环境变量没有设置正确。不巧,今天我也遇到了同样的问题。rnrn我需要运行某个程序,需要Java3D的支持。然而当我把Java3D SDK安装完成之后,出现了java.lang.NoClassDefFoundError错误。那么,我应该在哪里设置ClassPath呢?通过Google搜索,我按照很多人的经验设置ClassPath环境变量了,问题没有解决!rnrn而且,还有一个困扰的问题是我的系统里有很多个Java库,Runtime一个,SDK一个,还有JBuilder也带了一个。绝望之余,我甚至把Java3D往每一个地方都安装了一次,一切依然无用!最后,我的解决办法是把Path的路径修改!把Jre\Bin改为\Jre\Bin,也就是统一使用SDK附带的数据!问题随之解决了,虽然有点莫名其妙。rnrn现在,我已经把ClassPath,Java_Home等环境变量都去掉了!程序依然能够很好的运行!rnrn由此得出结论,除了Path路径,其他的Java环境变量都是无用的!另外,我在Sun的文档里也没有看到ClassPath的设置说明,在《Core Java2 Volume2 Fundamentals》一书中也没有提及!或许,这些变量仅仅是以前版本的遗留?rnrn另外一个疑问,Java对公共包的管理似乎有点随意。虽然可以避免"DLL HELL",但随之而来的是数据冗余,经常可以看到一些开放源码的包被很多应用程序附带。rnrn对于Java我是菜鸟,不当之处,请高手指正。rnrnrn运行环境:Win2K+Java2 1.4rnrnrnrn 论坛

初始化有必要吗?

11-22

描述:rn 程序的初始化的代码TForm1.FormClick()在程序运行时没有体现原本的功能。即把初始化代码注释后,程序的功能没有任何变化。rn问:初始化有必要吗?rn源代码如下:rnDFM代码附后:rnunit textf;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,rn Menus, StdCtrls;rnrntypern TForm1 = class(TForm)rn MainMenu1: TMainMenu;rn OpenDialog1: TOpenDialog;rn SaveDialog1: TSaveDialog;rn Memo1: TMemo;rn File1: TMenuItem;rn Edit1: TMenuItem;rn Style1: TMenuItem;rn New1: TMenuItem;rn Open1: TMenuItem;rn Save1: TMenuItem;rn Exit1: TMenuItem;rn Cut1: TMenuItem;rn Copy1: TMenuItem;rn Paste1: TMenuItem;rn Delete1: TMenuItem;rn SelectAll1: TMenuItem;rn Left1: TMenuItem;rn Center1: TMenuItem;rn Right1: TMenuItem;rn Bold1: TMenuItem;rn Italic1: TMenuItem;rn Underline1: TMenuItem;rn procedure FormClick(Sender: TObject);rn procedure New1Click(Sender: TObject);rn procedure Open1Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rnrnimplementationrnrn$R *.DFMrnrnprocedure TForm1.FormClick(Sender: TObject);rnbeginrn form1.Memo1.Clear;rn //清空文本框rn form1.OpenDialog1.InitialDir:='e:\paul';rn form1.SaveDialog1.InitialDir:='e:\paul';rn //初始化打开和保存的目录rn form1.OpenDialog1.Filter:='Word File(*.doc)|*.doc';rn // form1.SaveDialog1.Filter:='Word File(*.doc)|*.doc';rn //初始化打开和保存的类型rnend;rnrnprocedure TForm1.New1Click(Sender: TObject);rnbeginrn form1.Memo1.Clear;rn //清空rnend;rnrnprocedure TForm1.Open1Click(Sender: TObject);rnbeginrn form1.OpenDialog1.Execute;rn form1.Memo1.Lines.LoadFromFile(form1.OpenDialog1.FileName);rnend;rnrnend.rn***********************************************************************************************rnDFM代码rnobject Form1: TForm1rn Left = 251rn Top = 118rn Width = 696rn Height = 480rn Caption = 'Form1'rn Color = clBtnFacern Font.Charset = DEFAULT_CHARSETrn Font.Color = clWindowTextrn Font.Height = -13rn Font.Name = 'MS Sans Serif'rn Font.Style = []rn Menu = MainMenu1rn OldCreateOrder = Falsern OnClick = FormClickrn PixelsPerInch = 120rn TextHeight = 16rn object Memo1: TMemorn Left = 16rn Top = 56rn Width = 657rn Height = 377rn Lines.Strings = (rn 'Memo1')rn TabOrder = 0rn endrn object MainMenu1: TMainMenurn Left = 376rn Top = 16rn object File1: TMenuItemrn Caption = 'File'rn object New1: TMenuItemrn Caption = 'New'rn OnClick = New1Clickrn endrn object Open1: TMenuItemrn Caption = 'Open'rn OnClick = Open1Clickrn endrn object Save1: TMenuItemrn Caption = 'Save'rn endrn object Exit1: TMenuItemrn Caption = 'Exit'rn endrn endrn object Edit1: TMenuItemrn Caption = 'Edit'rn object Cut1: TMenuItemrn Caption = 'Cut'rn endrn object Copy1: TMenuItemrn Caption = 'Copy'rn endrn object Paste1: TMenuItemrn Caption = 'Paste'rn endrn object Delete1: TMenuItemrn Caption = 'Delete'rn endrn object SelectAll1: TMenuItemrn Caption = 'Select All'rn endrn endrn object Style1: TMenuItemrn Caption = 'Style'rn object Left1: TMenuItemrn Caption = 'Left'rn endrn object Center1: TMenuItemrn Caption = 'Center'rn endrn object Right1: TMenuItemrn Caption = 'Right'rn endrn object Right2: TMenuItemrn Caption = '-'rn endrn object Bold1: TMenuItemrn Caption = 'Bold'rn endrn object Italic1: TMenuItemrn Caption = 'Italic'rn endrn object Underline1: TMenuItemrn Caption = 'Underline'rn endrn endrn endrn object OpenDialog1: TOpenDialogrn Left = 168rn Top = 8rn endrn object SaveDialog1: TSaveDialogrn Left = 248rn Top = 16rn endrnend 论坛

没有更多推荐了,返回首页