▂▄▆█〖如果您认为学历很重要的话,请不要进来 - 找工作〗█▆▄▂ (300分)

  • 主题发起人 主题发起人 ysai
  • 开始时间 开始时间
Nizvoo@yahoo.com
 
to sichuan:兄弟,你们公司在招人?而且在东莞,我也在东莞,现在正在找工作,
你们公司叫什么名字,在哪个镇?能不能把详细情况发MAIL给我。
我的EMAIL:cydd007@163.com
如果好的话,我另外开贴给分!
 
若是写程序只一年多,就能有这么好的代码,真是不错。
这样的代码让人家怀疑你是否只写了一年的程序?:)
据我碰到的小同事,跟你的学历差不多,学了快半年的delphi了,还不会写自已的函数。
你应该是那种悟性高的人吧,祝你好运!
 
如果中专只写一年代码能达到这水平,我可以说我三年了本科还没有这水平呢?
是个人才呀!
 
bkbk你也真是,用Delphi你想定义静态对象把几个不大相关的过程封装起来?或者自己封
装Delphi的已有控件,就是不用现成的!你不违背了OO的精神了吗?
ysai同志做的不错!但如果他学过或用过Java的话他的水平将会提高很快。
 
以下代码明显抄的
但是别的写的不错
顺便文一句你英文几级呀
变量的英文使用真的不错 最少应该4级以上吧
procedure TMDIMainForm.CreateWnd;
//画背景图代码需要的部分,用自己的过程代替系统过程
begin
inherited CreateWnd;
FNewClientProc := MakeObjectInstance(ClientWndProc);
FOldClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FNewClientProc));
end;

procedure TMDIMainForm.DrawImage(Style:integer);
//画背景图
var
Row, Col: Integer;
CR, IR: TRect;
NumRows, NumCols: Integer;
begin
if not FDrawImage then
exit;
GetWindowRect(ClientHandle, CR);
case Style of
0:with imgMaindo
BitBlt(FDrawDC, ((CR.Right - CR.Left) - Picture.Width) div 2,
((CR.Bottom - CR.Top) - Picture.Height) div 2,
Picture.Graphic.Width, Picture.Graphic.Height,
Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
1:StretchBlt(FDrawDC, 0, 0, CR.Right, CR.Bottom,
imgMain.Picture.Bitmap.Canvas.Handle, 0, 0,
imgMain.Picture.Width, imgMain.Picture.Height, SRCCOPY);
2:begin
IR := imgMain.ClientRect;
NumRows := CR.Bottom div IR.Bottom;
NumCols := CR.Right div IR.Right;
with imgMaindo
for Row := 0 to NumRows+1do
for Col := 0 to NumCols+1 do
BitBlt(FDrawDC, Col * Picture.Width, Row * Picture.Height,
Picture.Width, Picture.Height, Picture.Bitmap.Canvas.Handle,
0, 0, SRCCOPY);
end;
end;
end;

procedure TMDIMainForm.ClientWndProc(var Msg: TMessage);
//画背景图过程,用本过程代替了系统过程处理消息
begin
case Msg.Msg of
WM_ERASEBKGND:
begin
CallWindowProc(FOldClientProc, ClientHandle, Msg.Msg, Msg.wParam,
Msg.lParam);
FDrawDC := TWMEraseBkGnd(Msg).DC;

DrawImage(iDrawStyle);
Msg.Result := 1;
end;
WM_VSCROLL, WM_HSCROLL:
begin
Msg.Result := CallWindowProc(FOldClientProc, ClientHandle, Msg.Msg,
Msg.wParam, Msg.lParam);
InvalidateRect(ClientHandle, nil, True);
end;
else
Msg.Result := CallWindowProc(FOldClientProc, ClientHandle, Msg.Msg,
Msg.wParam, Msg.lParam);
end;
end;

procedure TMDIMainForm.FormResize(Sender: TObject);
//窗体尺寸变化让背景失效
begin
InvalidateRect(ClientHandle, nil, True);
end;
end.
 
贴出些这些代码,没想到大家对我的评价这么高,让我也有点信心,在此谢过,不过怎么批评的
这么少呀,也得让我看出自己的缺点,像bkbk说的,这里的代码确实缺少OO的特点,OO对我来说
是个很概念的东东,要应用它需要多实践才行.
楼上 青铜三代 说得对,这段代码是在delphi 5 开发人员指南上的,但我改了一下,
解决了一个小bug,说我E文4级,还没那个水平,我的E文狂烂呀
再次谢谢大家支持
 
唔~路过...
 
[8D]
唔,不错,可惜我们的人已经满员了。
祝你前途锦锈!
 
值得学习...
 
努力,我跟你差不多.
不过这样的代码重用的可能很小.如果有更改的话很可能就会牵一发而动全身了.
试着用用TUpdateSQL组件吧.
 
有着落了吗?
 
看代码楼主的水平不错,比一些本科的强,有时本科的性能价格比不是很高的。
 
我也是中专生,不过正在自考,没办法,兄弟,也去考一个吧,有时候有些东东是需要的,
不过写了程序一年,之间会感觉程序有莫大吸引力,会觉得文凭没什么用,可过了一年后,
还是得考一个,为什么,呵呵,我现在工资上不了,就因为这文凭。你比我小,我都是刚
开始考的,你怕什么。呵呵。
代码还可以,不过多看看VCL了,可以提高的更快,特别是风格,和一些OO的实现,
还有将函数和过程的代码尽可能的减少,即说函数多,但每一块尽可能的复用的多点,
精简点。
[:D][:D][:D][:D]
 
对,是我,你是?
 
代码的风格很好
确实是没有OO的思想,这方面还需要加强。
 
你不象只写了一年的程序。你至少可以作为一个资深程序员。
代码很规范,你适合做VC
 
我不得不惊诧于你的水平!如果完全是你自己写的,有如此的水平,不易!我想把我自己
的工作让给你!
 
我是来领分的:)
---------------
Delphi园地
http://mydelphi.8u8.com
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部