来来来，看看你的水平有多高！——Aimingoo送分项目(超过600大元) (0分)

学习◎

有意义吗? [^][^][^][^][^][]

我的帖子暂时收回，因为这个帖子太不守信用了。

我在自己的网站新增了聊天室，希望这是大家的，刚起步时需要大家来提高人气啊。
网址：http://go.163.com/delphibbs 或 delphibbs.go.163.com,
有时间我会用DELPHI再开发一个别具一格史无前例的聊天室，敬请关注

[]学习了不少东西，不过DELPHI的512字节能实现的毕竟太少。这几512字节用到
shell或者perl上到是可以实现很多功能。前一段时间有人问：如何让一个控件不响应事件
而且不使用ENABLE属性。代码如下：
procedure s();
begin
end;
-- 使控件不响应/响应事件
procedure Tform1.button1click(sender : tobject);
const
oldh = 0;
begin
if ( not oldh)
begin
oldh := GetWindowLong(Memo1.handle,GWL_WNDPROC);
SetWindowLong(Memo1.handle,GWL_WNDPROC,@s);
end
else
begin
SetWindowLong(Memo1.handl,GWL_WNDPROC,oldh);
oldh := 0;
end;
end;
-----------------

我也来凑个热闹，判断某个UDP端口是否已被其他程序占用，
program TestPort;
uses
WinSock,windows;
var
s : TSocket;
wsd : TWSAData;
SockAddrIn : TSockAddrIn;
begin
if (WSAStartup(MAKEWORD(2,2),wsd) = 0) then
begin
s := Socket(AF_INET,SOCK_DGRAM,0);
try
if (s <> SOCKET_ERROR) then
begin
SockAddrIn.sin_family := AF_INET;
SockAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
SockAddrIn.sin_port := htons(Short(2222));
if (Bind(s,SockAddrIn,SizeOf(SockAddrIn))<>0) then
if (GetLastError = WSAEADDRINUSE) then
MessageBox(0,'Port 2222 Be Uses','Sorry',MB_OK);
end;
finally
CloseSocket(s);
WSACleanup();
end;
end;

end.

遗憾，水平太底，只有关注！

近期将结束本贴。敬请关注。
^-^
实在报歉，拖了这么久。很报歉~~~

OK，现在开始评测这个计划中的代码。为了不让这个贴子过长，我新开了一个贴，大家去这里看吧。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1019143

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1144133

接受答案了.

我不知代码优化真的很重要?看看印度

发完帖子以后就没有去关注了，早知道减少一个画圈的循环字数就够了 ：）

都是高手。我要好好学习。

512bytes 實在太誇張 ,我都是不要出醜

高，实在是高

受益非浅

现在怎么没有再举行？

DELPHI编写数据库真的好吗?

type DispCallBackProc=procedure (var LineNo,TotalLineCount:integer;var ConvBytes:int64) of object;
const DispInterval=1000;
var BreakConvert:Boolean=false;
Function DataSetToASCII1(const ADataSet: TDataSet;
const ASCIIFile: TFileName;
const Delimiter: Char=',';
const QuoteStrings: Boolean=false;DispFpispCallBackProc=nil):Boolean;
const MaxLineBufSize=8192;
var
TmpList: TFileStream;
i, LastIndex: LongInt;
AsciiRecord: PChar;
LineCount,TotalLine,LineNo:integer;
ConvSize:int64;
procedure AppendBuf(const S:string);
var len:integer;
begin
len:=length(s);
Move(S[1],AsciiRecord[LineCount],len);
inc(LineCount,len);
inc(ConvSize,len);
end;

begin
Result:=false;
try
TmpList:=TFileStream.Create(ASCIIFile,fmcreate or fmShareDenyNone);
except
ShowMessage('Could not save table to specified file: ' + ASCIIFile)
end;
try
AsciiRecord:=StrAlloc(MaxLineBufSize);
with ADataSet do
begin
DisableControls();
TotalLine:=RecordCount;
LastIndex := Fields.Count - 1;
First;
LineNo:=0;
while (not BreakConvert) And (not EOF) do
begin
LineCount:=0;
for i := 0 to LastIndex do
if Fields.Tag = 0 then
begin
if QuoteStrings and
(Fields.DataType in [ftString, ftMemo, ftFmtMemo, ftFixedChar, ftWideString]) then
begin
AppendBuf('''');
AppendBuf(Fields.AsString);
AppendBuf('''');
end else
AppendBuf(Fields.AsString);
if i < LastIndex then
AppendBuf(Delimiter);
end;

TmpList.Write(AsciiRecord^,LineCount);
TmpList.Write(#13#10,2);
inc(ConvSize,2);
inc(LineNo);
if Assigned(DispFp) then
if Lineno mod DispInterval=0 then
DispFp(LineNo,TotalLine,ConvSize);
Application.ProcessMessages();
Next;
end ;
end;
Result:=not BreakConvert;
finally
AdataSet.EnableCOntrols();
TmpList.Free;
StrDispose(AsciiRecord);
end;
end;