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
Ïà¹ØÎĵµ£º
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/maozefa/archive/2009/10/28/4737584.aspx
ͼÏñËõ·ÅÊÇ×î³£ÓõÄͼÏñ´¦Àí£¬ÔÚͼÏñÀÉìºÍÈ¡µÃͼÏñÂÔͼÖж¼ÒªÓõ½¡£Í¼ÏñËõ·ÅÖÊÁ¿µÄºÃ»µÓëͼÏñÏñËØ²åÖµ·½Ê½Óйأ¬±¾Î͍ÒåÁ˳£ÓõÄ3ÖÖ²åÖµ·½Ê½£¬¼´ÁÙ½ü²åÖµ¡¢ÏßÐÔ²åÖµºÍË«Á¢·½²åÖµ·½Ê½£º
view plaincopy to clipboardpr ......
delphi»ñÈ¡WindowsϵͳµÄ½ø³ÌÔËÐÐÐÅÏ¢
×Ô´Ó³öÏÖwindowsϵͳÒÔÀ´£¬¸÷ÖÖ¸÷ÑùµÄÈí¼þ²ã³ö²»Çî¡£¹ºÂò»òÕßÃâ·ÑÏÂÔØÒÔºó£¬ÇáÇáµã»÷Install»òÕßSetupÒÔºó£¬ÉÔ×÷ЩÐí¼òµ¥ÅäÖþÍÍê³É°²×°µÄÕû¸ö¹ý³Ì¡£ÏÔÈ»Õâ¸øÓû§´øÀ´ÁËÐí¶à·½±ã£¬µ«¶ÔÓû§À´ËµÕâЩÈí¼þËÆºõÊǸö"ºÚÏ»×Ó"£¬Õ¹ÏÖÔÚÓû§ÃæÇ°µÄ½ö½öÊÇ»ªÀöµÄÍâ±íºÍ¼ò½àµÄ²Ù×÷£¬ÖÁÓÚÈí ......
uses ComObj;
var WordApp: Variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.open('c:\1.doc');
WordApp.Selection.InsertFile('c:\2.doc','',False,false,false);
WordApp.Selection.InsertFile('c:\3.doc','',False,false,false);
WordApp.ActiveDocument.SaveAs('C:\4.doc' ......
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 ......