刚才和这厮聊QQ.说着说着..他就开始说征婚要求了..然后经得他本人同意,将他的原话整理成征婚启事,希望大家多参与...下文提到的隐身,是我们探讨QQ隐身问题之后,他发的感慨.
---------------------------------------------------------------------------------------
我喜欢的女孩子应该具备一个特点。----学会隐身。
我喜欢的女孩子应该具备另一个特点。 -----那就是喜欢隐身。
我喜欢的女孩子应该具备第三个特点。-----和我一起隐身。
我喜欢的女孩子应该具备的第四个特点。----把隐身当作时尚。
我喜欢的女孩子应该具备第五个特点。----把隐身当做习惯。这个是(原文是市,我觉得是个错字)最重要的。
---------------------------------------------------------------------------------------
附录,他对自己的描述
我不是经常(这里应该少2个字,隐身),我以后打算永远隐身。
隐身是一种习惯。
这个世界上谁不想有隐身这个效果。 (说到这里的时候,我已经无语了)
能隐身我就不显身。
隐身是一种时尚。
隐身是一种艺术。
隐身是一种……
(于是,我说:是一种XX.我帮你说.. )
(随后,这厮就提到了他喜欢的...估计是那个什么期到了...个人臆测..不做准...)
希望有意的MM,直接M他本人,我这里不接待....谢谢...
---------------------------------------------------------------------------------------
我喜欢的女孩子应该具备一个特点。----学会隐身。
我喜欢的女孩子应该具备另一个特点。 -----那就是喜欢隐身。
我喜欢的女孩子应该具备第三个特点。-----和我一起隐身。
我喜欢的女孩子应该具备的第四个特点。----把隐身当作时尚。
我喜欢的女孩子应该具备第五个特点。----把隐身当做习惯。这个是(原文是市,我觉得是个错字)最重要的。
---------------------------------------------------------------------------------------
附录,他对自己的描述
我不是经常(这里应该少2个字,隐身),我以后打算永远隐身。
隐身是一种习惯。
这个世界上谁不想有隐身这个效果。 (说到这里的时候,我已经无语了)
能隐身我就不显身。
隐身是一种时尚。
隐身是一种艺术。
隐身是一种……
(于是,我说:是一种XX.我帮你说.. )
(随后,这厮就提到了他喜欢的...估计是那个什么期到了...个人臆测..不做准...)
希望有意的MM,直接M他本人,我这里不接待....谢谢...
解决方案 »
- 急~!如何动态设定TChart/TDbChart中Series的数据集?
- 在D7中如何屏蔽word、EXCEL中右上角的 关闭按钮
- 数据排序问题
- 手机短信开发,获得电池电量的AT指令是什么?(西门子)
- Help~!
- 帮我找找OpenDialog这个组件?先谢谢大家。在线等哈子~
- 一个关于MTS/COM+的事务和并发问题 200分相送
- 关于鼠标的单击和双击的判断?
- 直接用程序向页面post数据后,怎么让IE打开post后的网页?
- begin.....end;与begin....end.有无区别
- 一个有关Quickrep报表保存的问题!真的很急啊!!!!大家帮忙看看
- 请问大虾,有没有delphi的xml单元可以使用下载
我把主要代码贴出来,
procedure TForm1.SendClick(Sender: TObject);
var
flag : Boolean;begin
if (MSComm1.PortOpen) then
begin
MSComm1.PortOpen := False;
end;
MSComm1.OutBufferSize := 1;//MSComm1.SThreshold := 1;
//MSComm1.RTSEnable := True;
//MSComm1.DTREnable := True;
//MSComm1.DSRHolding := True;
MSComm1.PortOpen := True;
MSComm1.OutBufferCount := 0;
MSComm1.SThreshold := 1;
AssignFile(OpenedFile,OpenedFileName);
Reset(OpenedFile);
{$IFDEF comevent}
if (MSComm1.CommEvent=1) then //****此时commevent=-4083
begin
flag := True;
end;
{$ENDIF}
end;
Procedure TForm1.MSComm1Comm(Sender: TObject);
var
FileChar: char;
Buffer: variant;
s1: string;
c: char;begin case MSComm1.CommEvent of
ComEvSend:
begin
while not (eof(OpenedFile)) do
begin
read(OpenedFileName,FileChar);
MSComm1.output := FileChar;
Buffer := MSComm1.output;
s1 := Buffer;
c := S1[1];
ListString := ListString+c;
if (C=char(13)) then
begin
AcceptCode.lines.add(ListString);//****用来显示发送的数据
ListString :='';
end;
MSComm1.OutBufferCount := 0;
j := j+1;
if (MSComm1.outbuffercount>=2) then
break;
end;
end;
end;
请各位慧眼帮我看瞄一下!!!
你这不是此地无银三百两不,你不回答问题, 你这颗星星是怎么来的呀, 你不要这样撒, 我哭求, 我跪求不行吗, 我过一向回学校毕业答辩的时候, 我去女生宿舍楼给你贴征婚启事行不,我真的呢,帮帮我, 我被卡住了,才开始呢,难的还在后面,你帮我看看呀, 我回去不贴的我是一只小狗还不行吗?
===============================================就冲着这个,我现下了个控件装上了帮你试我对这方面不太熟,大体试了一下触发Comm1Comm事件应该是对com有读写操作的时候 procedure TForm1.MSComm1Comm(Sender: TObject);
begin
showmessage('Comm1Comm ok');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
MSComm1.PortOpen := True;
MSComm1.SThreshold := 1;
MSComm1.output := 'test';
end;
我这颗星星是回答星星的问题得来的。非斑竹、星星的问题不回答不交流不讨论。就这样,谢谢。
==========================================================================================哈哈,reallike,你直接说现在不回答问题得了
现在看看CSDN
有几个星星还发帖问问题啊?简单问题
要么就直接在群里解决掉了
要么就自己找答案搞定了复杂问题……(哪有那么多的复杂问题阿……)
恩,星星还是要顾一下面子的,
都是星星了,提个问题没档次多栽面啊,哈哈楼下的,你说我说的对不?^_^
看了这么久,没有MM呀,我是MM,不过我只要贴主的那200分^_^
回复人: shilinqun(群群) ( ) 信誉:97 2005-03-04 11:13:00 得分: 0
什么书,看完了工资能涨多少?
回复人: reallike(爱翔)(学得太多,得休息一下) ( ) 信誉:100 2005-03-04 11:14:00 得分: 0
靠,拒绝和这种问工资的人交流。妈的,看完了一分钱工资都不涨!!!!!
对女人要温柔……
你看看下面这几个哪个能进吧 759572
7523207
4372026
9883741
to 爱翔:纸版,我还是想看.
一些细节问题.....RL的书的问题....很恐怖.....我把我大学值得留下的书都留下了...加上我买的专业书....大概一箱多吧...
记住..没事别和RL比书多..别比看的书多...除非你上班的时候在书堆里....他的确在书堆里...另外...RL提供的数目参考..我买齐了..也力所能及的看了一大部分.....
为什么要提到我呢..我这么乖的...顺便提一下..现在的一部分程序员(或者正准备做这个职业)很懒,懒得有时候让人很没话...我相信RL的动机是好的..虽然这厮做事有时候....有时候....