Loading...

Tag Archive for 'delphi'

    AD: 猛买 | 快递查询 | Jobsdigg | 很棒的男装店

Delphi怎么办

Borland在上个月宣布出售自己的IDE产品线,引起了不小的波澜。那时我正在开学前夕,看到这件事,觉得颇为惋惜。我不大相信Borland会找到众多开发者心目中满意的买家,比如微软(这应该最不可能了),比如IBM(IBM没有做这个的必要),比如Google(Google是以网络为主的公司,也不太可能)……Borland/Delphi结局如何,没有人知道。 本来我是打算在这个学期好好学一学Delphi中的VCL库的,把VCL源码好好地看一次,可是听到这个消息,就不禁有些犹豫了。诚然,在我这个阶段,学这些肯定是有用的,但用处多大,这不好说。Delphi曾经是现在也是最杰出的开发工具之一,严谨的结构,优秀的代码让众多开发者钟情不已。但Borland一连串的失误,终于使自己最好的儿子陷入绝境,以后还会有Delphi吗? 没有人会使用一个没有前途的开发工具,哪怕它现在依然好用。Delphi也许会和Borland那条IDE产品线一起,会永远消失在我们的视野里。至少在我看来,这个预测是客观的,谁接下Delphi,都会是一块烫手山芋。 话又说回来,如果Google买下Delphi,我想业界又会掀起新一轮的Google热的。

给社团联合会写的领票系统

Code: unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Btn_exit: TButton; memotxt: TMemo; Panel1: TPanel; Editxt: TEdit; Btn_check: TButton; Label1: TLabel; procedure Btn_saveClick(Sender: TObject); procedure Btn_exitClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Btn_checkClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var [...]

Delphi里使用数组和冒泡排序

Code: program Project2;{$APPTYPE CONSOLE} uses SysUtils; function minor (i : Integer) : Integer ; //为了给数组赋值 var a :Integer; begin result := -1; for a := 0 to i do begin result :=result*( -1) ; end; end; type myarray = Array [0..99] of integer; var array_1:myarray; i,j,temp : Integer; begin { TODO -oUser -cConsole Main : [...]

用delphi写一个数字金字塔

Code: program Project2;{$APPTYPE CONSOLE} uses SysUtils; var a,b,c,d : Integer ; //declare variables begin write(‘请输入一个自然数’) ; readln(a); for b:=1 to a do //start from the first row begin for c:=1 to a-b do //write blanks before numbers write(#32) ; for d:=1 to b do //write numbers write(d); for d:=b-1 downto 1 do write(d); for c:=1 [...]

第一节上机课

先买好了“机票”(用来上机的东西),然后就迫不及待地跑到了机房。心里想了好久的一个东西,想把www.buyren.net/taobao.html改动一下,变成调用js文件的,可是失败了。 技术还是不够好的说…… 去了buyren几次,感觉就是被人彻底遗忘了。不由得想起了keso的一篇blog说他的一个朋友,在出国归来之后发现自己早已被遗忘。keso那时还提到了北岛……大一太空虚了,连电脑都很难磨刀,我想好好学习技术,可是似乎条件并不具备。 这节上机课的任务太初级了,不过我学电脑是半路出家,比如打字,我就很差。可视化程序设计学的是delphi,以前从来都没接触过, 不过语言不是什么重要的东西,编程的关键在于算法。看看初级的delphi,和vb是很相似的。学起来没什么困难,我于是很想多接触一点东西。所以,很有必要成为计算机课代表。 我总是相信,自己永远都是最好的,虽然我经历了更多失败,但从来都没有在这一点上有过怀疑。西湖边上的房价是每平米两万多,一个学长说,既然来了,就要有留下来的信心……我还需要更多的努力。