黑色头发

[致命错误] Client.dpr(24): File not found: 'TFlatMemoUnit.dcu'我的TFlatMemoUnit.dcu文件在E:\C\Source里,就要把路径指向E:\C\Source路径指向方法为:工程->选项->目录/条件->查找路径:->选择到有需要的文件的路径即可黑色头发:http://heisetoufa.iteye.co...

如果用窗体.print打印的话,会导致一些控件打印不出来,比如下拉列表,还有打印TChart也会导致只打印TChart的原始状态,而不会打印有数据的TChart所以我就想到了先抓图,后打印抓图后下拉列表和TChart都正常显示了,可是还有一点不好,就是下拉列表中的值是显示不到的,但Label可以显示,所以可以在打印的时候把下拉列表的值换成Label来显示代码:[co...

Delphi中获取打印机设备名和端口名[code="c++"]uses Printers;{$IFNDEF WIN32}const MAX_PATH = 144;{$ENDIF}procedure TForm1.Button1Click(Sender: TObject);var pDevice : pChar; pDriver : pChar;...

[code="c++"]Printer.BeginDoc; // 设置 MyRect1 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(MyRect1,Image1.Picture.Bitmap); // 设置 MyRect2 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(M...

Delphi里没有subString只有Copy() Copy(s, index, count) 其中s,主字符串, index是要拷的起点，count是要拷的字符数 如：Copy('heisetoufa', 3, 4)，结果为'seto' 黑色头发:http://heisetoufa.iteye.com...

[code="c++"]var a,b,i: longint;begina:=0; b:=1; write(a, ', ',b);for i:=2 to 10 dobegin a:=a+b; b:=a+b; write( ', 'a, ', ',b); end;end. [/code]黑色头发:http://heisetoufa.iteye.com/...

   VC++DelphiINT  Integer UNSIGNED  Word UNSIGNED INT  Word UINT  Word WORD  Word UNSIG...

[code="c++"]procedure TFrmLltj.FormActivate(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word;begin Present:= Now; DecodeDate(Present, Year, Mont...

[code="c++"]lltjQuery.Close;//关闭ADOQuerylltjQuery.SQL.Clear;//清除ADOQuery中SQLlltjQuery.SQL.Add('select * from kk.kkdj where kkmc like '+Trim(cbb_xxlk.Text)+'');//添加ADOQuery中SQL语句lltjQuery.Open;...

初学Delphi[code="c++"]procedure TFrmLltj.cbb_xxlkChange(Sender: TObject);begin if Trim(cbb_xxlk.Text)'' then begin Showmessage('没空'); end else ...

初学Delphi1,加载时把数据动态显示到下拉列表中2,加载时获取当前系统时间显示到下拉列表中3,定义变量4,查询值显示到Tchart中5,抓图打印6,连接并查询数据库7,if,for,while写法8,截取字符串[code="c++"]unit lltjFrm;interfaceuses Windows, Messages, Sy...