Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiѧϰ

 1.[Error] DCansactionIformationManagement.pas(171): String literals may have at most 255 elements
[Fatal Error] DCMain.pas(32): Could not compile used unit 'DCansactionIformationManagement.pas'
±¨´í£º‘²»Õý³£¶¨ÒåÁ˲ÎÊý¡£ÌṩÁ˲»Ò»Ö»ò²»ÍêÕûÐÅÏ¢’
½â¾ö·½·¨£ºÓï·¨
Êý¾Ý¶¨ÒåÒªÒ»ÖÂ
2.Edit19.Text:= FieldbyName('SQTcost') ¶ÁÈ¡Êý¾Ý
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, TeeProcs, TeEngine, Chart, DbChart,
  ExtCtrls, Series
3.maskedit1.text:=datetostr(Date()); »ñÈ¡µ±Ç°ÈÕÆÚ
¼ÓÒ»¸ötimer¿Ø¼þ£¬systemÀïÃæÓУ¬ÊÇÒ»¿é±íµÄÑù×Ó£¬ºÇºÇ¡£
Ë«»÷½øÈëontimerʼþ£¬È»ºóдÏÂÄãµÄ´úÂ룺
Statusbar1.Panels[0].Text:='ϵͳÈÕÆÚ£º'+datetostr(Now)£»
Statusbar1.Panels[1].Text:='ϵͳʱ¼ä£º'+timetostr(Now)£»
OPENÖ»ÓÃÀ´SELECT
EXECSQL ÓÃËùÓеÄ
prepared¸æËß·þÎñÆ÷×¼±¸Òª¸É»îÁË
Óзµ»ØÒ»Ð©¼Ç¼µÄÓÃOPEN
²»ÐèÒª·µ»Ø¼Ç¼µÄÓÃEXECSQL
¾ÍÊÇ˵һ°ãÓÃselect ÒªÓÃOPEN
¶øÏñinsert .dropµÈÖ»ÒªÓÃExecSql
4.GetCursorValues(tmpX,tmpY);  { <-- get values under mouse cursor }
      Label1.Caption:=GetVertAxis.LabelValue(tmpY)+
                      ' '+
                      GetHorizAxis.LabelValue(tmpX);»ñÈ¡×ø±êÖµ
5.¹ö¶¯ ´úÂë  procedure TDemoForm.SpeedButton1Click(Sender: TObject);
begin
  HorizScroll(10);
end;
procedure TDemoForm.SpeedButton4Click(Sender: TObject);
begin
  HorizScroll(-10);
end;
procedure TDemoForm.SpeedButton2Click(Sender: TObject);
begin
  VertScroll(-10);
end;
procedure TDemoForm.SpeedButton3Click(Sender: TObject);
begin
  VertScroll(10);
end;
6.Çå³ýϵÁУºif dbchart1.SeriesCount>=0 then
  begin
  for i:=0 to dbchart1.SeriesCount-1 do
    begin
    &nbs


Ïà¹ØÎĵµ£º

DelphiÖлæÖÆÔ²½Ç¾ØÐεĴ°Ìå

ÖÆ×÷Ô²½Ç¾ØÐεĴ°Ì壺
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
Èç¹û²»Òª´°ÌåÍâ¿ò£¬ÔòʹÓãº
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......

delphiÖжÔÓÚ½ø³ÌµÄ²Ù×÷

Uses Tlhelp32;
//ÓÃListboxÏÔʾ·½·¨
procedure TForm1.Button1Click(Sender: TObject);
var
lppe:TProcessEntry32;
found:boolean;
Hand:THandle;
begin
Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
lppe.dwSize := Sizeof(lppe); //³õʼ»¯
found:=Process32First(Hand,lppe);
......

DelphiͼÏñ´¦Àí

ǰÑÔ
    ¾¡ÈýÄêÀ´£¬±¾ÈËÂ½ÐøÐ´ÁËÁùÊ®¶àƪBOLOÎÄÕ£¬ÆäÖоø´ó²¿·ÖÊÇÓйØÍ¼Ïñ´¦ÀíµÄ£¬Òò´Ë£¬ÓÐÈËÏ·³ÆÎÒΪͼÏñ´¦Àíר¼Ò£¨»òGDI+ר¼Ò£©£¬´ËÏ·³Æµ±È»ÊǶÔÎÒµÄÔÞÑµ«ÎÒ×Ô¼ºÈ´¾õµÃÂÔº¬Ò»Ë¿Ë¿±áÒ壬¼´³ýÁËͼÏñ´¦Àí£¬±ðµÄ·½Ã棨ÈçÍøÂç¡¢Êý¾Ý¿âµÈ£©¶¼²»Õ¦µÄ£¬ÊÂʵҲȷʵÈç´Ë¡£
    ÎÒÊÇÒ»Ãû»ú¹Ø¹¤ ......

DelphiͼÏñ´¦Àí

    ¡¶DelphiͼÏñ´¦Àí -- Êý¾ÝÀàÐͼ°ÄÚ²¿¹ý³Ì¡·Ò»ÎÄÖж¨ÒåÁË»ù±¾µÄͼÏñÊý¾ÝÀàÐͼ°Ò»Ð©ÄÚ²¿¹ý³Ì£¬±¾ÎĽøÒ»²½½«Delphi³£ÓõÄͼÏñÀàÐÍת»»ÎªÍ¼Ïñ´¦ÀíËùÐèµÄÊý¾Ý½á¹¹£¬Îª¾ßÌåµÄDelphiͼÏñ´¦Àí¹ý³Ì×÷×¼±¸£¬Í¬Ê±Ò²Òª½«´¦ÀíºÃµÄͼÏñÊý¾Ýת»»ÎªDelphiµÄ³£ÓÃͼÏñÀàÐÍ¡£¡¶DelphiͼÏñ´¦Àí¡·ÏµÁгýͼÏñÊý¾Ýת»»¹ý³ÌÍâ£¬Æ ......

delphi TListViewµÄʹÓÃ


ListView1.Items Ϊ±ê×¼ TlistitemsÀà
ListView1.Items
(1)¸³Öµ
with ListView1.Items.Add do
begin
Caption:=caption; //Ìí¼ÓµÚÒ»Ïî
SubItems.add(aaaaa); //Ìí¼ÓºóÃæÊý¾Ý
SubItems.add(1234);
SubItems.add(1234);
end; //Ò»¶¨ÒªÊ¹ÓÃWITH½á¹¹.
(2)ȡֵ
listview1.Items.Item[i].Caption È¡µÃijÌõÊý¾Ý±êÌâ
l ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ