招聘感想（含面试题）(0)

题目根本就不难,这些都应该会做

Delphi不应该被人认为是拉控件的,虽然它控件很多很方便。也很希望用Delphi的人能多多提高素质,说实在话,如果不想把Delphi搞臭的话

1－5都知道。 6题不记得。7，TObject-TPeresistent-TComponent-TControl-TWinConTrol-TCustomEdit-TEdit也不知道漏了没有。8，应该没问题9，delphi 的单类 我知道的，有2种方式：声明全局变量记录类创建次数； 用$J＋编译指令打开类型常量（modelmaker里的实现方式）。delphi 的单类很难实现继承。 不知对否？10， 快速搜索添加控件：不知道 打开工程属性对话框：不知道 切换编辑中的代码窗体：指F12吗？ 删除一行代码：ctrl＋Y

9、设计模式中的单件模式，在Delphi中可以用什么方式创建。gdli,是不是这样？unit Singleton;interfacetype TSingletonObj = class(TObject) private class function GetInstance(GetOrSet:Boolean;
AInst:TObject):TObject;
public class function NewInstance: TObject;
override;
procedure FreeInstance;
override;
class function IncRefCount(IncOrDec:Boolean):Integer;
end;
implementationprocedure TSingletonObj.FreeInstance;
begin
if IncRefCount(False) = 0 then
begin
inherited FreeInstance;
GetInstance(False, nil);
end;
end;
class function TSingletonObj.GetInstance(GetOrSet: Boolean;
AInst: TObject): TObject;{$J+}const Inst: TObject = nil;{$J-}begin
if not GetOrSet then
Inst := AInst;
Result := Inst;
end;
class function TSingletonObj.IncRefCount(IncOrDec:Boolean): Integer;{$J+}const RefCount: Integer = 0;{$J-}begin
if IncOrDec then
Inc(RefCount) else
if RefCount > 0 then
Dec(RefCount);
Result := RefCount;
end;
class function TSingletonObj.NewInstance: TObject;
begin
Result := GetInstance(True, nil);
if Result = nil then
begin
Result := inherited NewInstance;
GetInstance(False, Result);
end;
IncRefCount(True);
end;
end.

招聘,邮箱：509215194@163.com，地点：上海

我想说的是：我对你的题，我是做不出来，我也不想做，但我确实不是只会拖控件的那种。系统基本上基本上用得是自己控件（好像只用了TDBGridEh, 当然delphi是borland的），写不出来，我到VCL代码里，找下就OK, 不想记忆太多的东西，这个世界知识量确实太大了；说真的我真的不知道： String 和 WideString 有什么区别，不过三层的字段到都是 widestring !