如何知道他是个Delphi 高手？

Question

请问高手们！通过怎样的提问，他如何回答。我知道他是个Delphi的高手？我不懂delphi

Answer 1

没意义，你问他问题他不懂但死爱面子可以问别人或者GOOGLE上搜索。我见过的很多不是高手喜欢装高手的人故做清高，不讲技术性问题，你硬是要跟他讲，他就拐弯抹角给你一些模凌两可的答案或者说自己没看懂你的问题而不回答。

Answer 2

问他会不会用DELPHI写操作系统... :)

Answer 3

问他是不是可以会写：hello,My Word!

Answer 4

Eastunfail(龙子龙孙)==(恶鱼杀手):
我见过的很多不是高手喜欢装高手的人故做清高，不讲技术性问题，你硬是要跟他讲，他就拐弯抹角给你一些模凌两可的答案或者说自己没看懂你的问题而不回答呵呵，这种人我也见过。要是和这样的人一起工作，生不如死~~

Answer 5

同意
 menggirl(夜星--->敢犯大汉天威者虽远亦必诛之你让他写出hello ,nihao.
看他能有几十种写法？起码要多于老孔的17种吧！

Answer 6

问的专业点吧！
难道你叫我说 你好！来写个hello,nihao 的程序来看看！

Answer 7

我用扫描仪从杂志上弄下来的，很经典的
中学---------------------(BASIC)
10 PRINT "HELLO WORLD"
20 END
大学一年级---------------------(Pascal)
program Hello(input, output)
begin
writeln('Hello world')
end.
大学高年级---------------------(Lisp)
(defun hello
(print
(cons 'Hello (list 'world))))
进入职场---------------------(C)
#include <stdio.h>
void main(void)
{
char *message[] = {"Hello ", "world"};
int n;
for(n = 0;n < 2; ++n)
printf("%s", message[n]);
printf("\n");
}
专业开发者---------------------(C++)
#include <iostream.h>
#include <string.h>
class string
{
private:
int size;
char *ptr;
public:
string() : size(O), ptr(newchar('\0')) {}
string(const string&s) : size(s.size)
{
ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}
~string()
{
delete [] ptr;
}
friend ostream&perator <<(ostream&,const string&);
string&operator=(const char *);
};
ostream&operator<<(ostream&stream, const string&s)
{
return(stream<< s.ptr);
}
string&string::operator=(const char *chrs)
{
if (this !=&chrs)
{
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chrs);
}
return(*this);
}
int main()
{
string str;
str = "Hello world";
cout << str << endl;
return(O);
}
编程大师---------------------(COM)
[
uuid(2573E8F4-CFEE-lO1A-9A9F-OOAAO0342820)
]
library LHello
{
//引入主库文件
importlib("actimp.tlb");
importlib("actexp.tlb");
//引入接口
#include "pshlo.idl"
[
uuid(2573FSES-CEEE-lO1A-9A9F-OOAAO0342820)
]
cotype THello
{
interface IHello;
interface IPersistFile;
};
};
[
exe,
uuid(2573F890-CFEE-1O1A-9A9F-00AA00342820)
]
module CHelloLib
{
//引入各种头文件
importheader(<windows.h>);
importheader(<ole2.h>);
importheader(<except.hxx>);
importheader("pshlo.h");
importheader("shlo.hxx");
importheader("mycls.hxx");
//引入类库
importlib("actimp.tlb");
importlib("actexp.tlb");
importlib("thlo.tlb");
[
uuid(2573F891-CFEE-101A-9A9F-00AA00342820),
aggregatable
]
coclass CHello
{
cotype THello;
};
};
#include "ipfix.hxx"
extern HANDLE hEvent;
class CHello : public CHelloBase
{
public:
IPFIX(CLSID_CHello);
CHello(IUnknown *punk);
~CHelloO;
HRESULT __stdcall PrintSZ(LPWSTR pwszString);
private:
static int cObjRef;
};
#include<windows.h>
#include <ole2.h>
#include <stdio.h>
#include <stdlib.h>
#include "thlo.h"
#include "pshlo.h"
#include "shlo.hxx"
#include "mycls.hxx"
iht CHello::cObjRef = 0;
CHello::CHello(Iunknown *punk) : CHelloBase(punk)
{
cobj Ref++;
return;
}
HRESULT _stdcall CHello: :PrintSz(LPWSTR pwszString)
{
printf("%ws\n", pwszString);
return (ResultFromScode(S_OK));
}

Answer 8

CHello::~CHello(void)
{
//对象计数器归零，停止服务
cObjRef--;
if( cObjRef==0 )
PulseEvent (hEvent);
return;
}
#include<windows.h>
#include<ole2.h>
#include "pshlo.h"
#include "shlo.hxx"
#include "mycls.hxx"
HANDLE hEvent;
int _cdecl main(int argc,char * argv[])
{
ULONG ulRef;
DWORD dwRegistration;
CHelloCF *pCF = new CHelloCF();
hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
//初始化OLE 库
CoInitializeEX(NULL, COINIT_MULTITHREADED);
CoRegiserClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,
REGCLS_MULTIPLEUSE, &dwRegistration);
//等待事件停止
WaitForSingleObject(hEvent, INFINITE);
//清除类对象
CoRevokeClassObject(dwRegistration);
ulRef = pcF->ReleaseO;
//通知OLE
CoUninitializeO;
return(O);
}
extern CLSID CLSID_CHello;
extern UUTD LTBID_CHelloLi b;
CLSTD CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-
00AA00342820 */
0x2573F891,
OXCFEE,
OxlO1A,
{ 0x9A, 0x9F, Ox00, OXAA, Ox00, 0x34, 0x28, 0x20 }
};
UUID LZBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-
00AA00342820 */
Ox2573F890,
0xCFEE,
0xl01A,
{ Ox9A, OxgF, Ox00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
};
#include<windows.h>
#include <ole2.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "pshlo.h"
#include "shlo.hxx"
#include "clsid.h"
int _cdecl main(int argc,char *argv[])
{
HRESULT hReslt;
IHello *pHello;
ULONG ulCnt;
IMoniker * pink;
WCHAR wcsT[_MAX_PATH];
WCHAR wcsPath[2 * _MAX_PATH];
//取得对象路径
wcsPath [0] = '\0';
wcsT[O] = '\0';
if( argc > 1)
{
mbstowcs(wcsPath, argy[1], strlen(argv[1])+ 1);
wcsupr(wcsPath);
}
else
{
fprintf(stderr, "Object path must be specified\n");
return(1);
}
//取得打印串
if(argc > 2)
mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);
else
wcscpy(wcsT, L"Hello world");
printf("Linking to object %ws\n", wcsPath);
printf("Text String %ws\n", wcsT);
//初始化OLE
hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);
if(SUCCEEDED(hReslt))
{
hReslt = CreateFileMoniker(wcsPath, &pmk);
if(SUCCEEDED(hReslt))hReslt= BindMoniker(pmk, 0, IID_IHello, (void
**)&pHello);
if(SUCCEEDED(hReslt))
{
//打印串pHello->PrintSz(wcsT);
sleep(2000);ulCnt =
pHello->Release();
}
elseprintf("Failure to connect,
status: %lx", hReslt);
//通知 OLE
CoUninitialize();
}
return(O);
}
初级黑客---------------------(Perl)
#!/usr/local/bin/perl
$msg="Hello, world.\n";
if($#ARGV >= O)
{
while(defined($arg=shift(@ARGV)))
{
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
}
else
{
print ($msg);
}
1;
中级黑客---------------------(C)
#include <stdio.h>
#define S "Hello, World\n"
main(){exit(printf(S) = strlen(S) ? 0 : 1) ;}
高级黑客---------------------(gcc)
%cc -o a.out ~/src/misc/hw/hw.c
%a. out
大师级黑客---------------------(bash)
%echo "Hello, world."
新经理---------------------(Basic)
10 PRINT "HELLO WORLD"
20 END
中级经理
mail -s "Hello, world." bob@b12
Bob, could you please write me a program that prints "Hello, world."? I need it by tomorrow.
^D
高级经理
% zmail jim
I need a "Hello, world." program by this afternoon.
首席执行官
%letter
letter: Command not found.
%mail
TO: ^X ^F ^C
%help mail
help: Command not found.
%damn!
!: Event unrecognized
%logout 

Answer 9

几位楼上的不是说Hello World么，这个是比较典型的Hello World代码，呵呵

Answer 10

同意 yanzy(活死人)  的观点，是不是高手得从时间上看出来，面试得几个问题代表不了什么