?? unit_public.pas
字號:
title:=Atitle;
DataSource:=Atable;
XLabelsSource:=x;
YValues.ValueSource:=y;
CheckDatasource;
end;
end;
1:
begin
with Tbarseries.Create(Aparent) do //直方圖
begin
ParentChart:=Achart;
name:='series'+inttostr(aflag)+inttostr(Aname);
title:=Atitle;
DataSource:=Atable;
XLabelsSource:=x;
YValues.ValueSource:=y;
CheckDatasource;
Marks.Style:=smsValue;
end;
end;
2:
begin
with Tpieseries.Create(Aparent) do //圓餅圖
begin
ParentChart:=Achart;
name:='series'+inttostr(aflag)+inttostr(Aname);
title:=Atitle;
DataSource:=Atable;
XLabelsSource:=x;
YValues.ValueSource:=y;
CheckDatasource;
Marks.Style:=smsLabelValue;
end;
end;
end;
end;
procedure GP_FreeSeries(Achart:TcustomAxisPanel;Aflag:integer=0);
//釋放所有的TCustomSeries對象
var
i,j:integer;
begin
j:=0;
for i:= 0 to Achart.SeriesCount -1 do
begin
case Aflag of
0:
begin
if Achart.Series[j] is TlineSeries then
Achart.series[j].free
else
j:=j+1;
end;
1:
begin
if Achart.Series[j] is TbarSeries then
Achart.series[j].free
else
j:=j+1;
end;
2:
begin
if Achart.Series[j] is TpieSeries then
Achart.series[j].free
else
j:=j+1;
end;
end;
end;
end;
function PingByName(ComputerName : String) : String;
var
Const_Version_Major : Integer;
Const_Version_Minor : Integer;
Data : WSADATA;
HostEntry : PHostEnt;
// Address : DWORD ;
// IPaddress : LPSTR;
HostNameChar : array[0..63] of Char;
begin
Const_Version_Major:=1;
Const_Version_Minor:=1;
if WSAStartup(MakeWord(Const_Version_Major,Const_Version_Minor),Data)<>0
then Result:='對不起，你的winsock1.1沒有安裝';
StrPCopy(HostNameChar,ComputerName);
HostEntry := GetHostByName(HostNameChar);
if HostEntry<>nil then
// IPaddress:=Pchar(AnsiString(HostEntry^.h_addr^))
// else
Exit;
// Address := inet_addr(IPaddress);
WSACleanup;
Result := '';
end;
Function Get_IP : String ;
var
I,J : Integer ;
S : String ;
F : Tregistry;
begin
//by zengzc
Result := '' ;
I := 0 ;
F := TRegIstry.create ;
F.RootKey := HKEY_LOCAL_MACHINE ;
F.OpenKey('SYSTEM',false);
F.OpenKey('CurrentControlSet',false);
F.OpenKey('Services',false);
F.OpenKey('Class',false);
F.OpenKey('NetTrans',false);
//打開注冊表：HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Class/NetTrans
S := IntToStr(I) ;
for J :=1 to 4-length(S) do S := S+'0' ; //S='0000'
while ((F.OpenKey(S,false)) or (I<100)) do //SET TO THE MAX NIC ADOPTER
begin
if (F.ReadString('IPAddress') <> '') and (F.ReadString('IPAddress') <> '0.0.0.0') then
begin
Result := F.ReadString('IPAddress') ;
F.CloseKey ;
F.Free ;
Exit ;
end;
F.CloseKey ;
F.OpenKey('SYSTEM',false);
F.OpenKey('CurrentControlSet',false);
F.OpenKey('Services',false);
F.OpenKey('Class',false);
F.OpenKey('NetTrans',false);
I := I+1 ;
S := IntToStr(I) ;
for J :=1 to 4-length(S) do
S := '0'+S ;
end ;
F.Free ;
end;
function GetPYIndexChar( hzchar:string):char;
// 獲取指定漢字的拼音索引字母，如：“曾”的索引字母是“Z”
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 : result := 'W';
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := char(0);
end;
end;
// 在指定的字符串列表SourceStrs中檢索符合拼音索引字符串PYIndexStr的所有字符串，并返回。
function SearchByPYIndexStr(SourceStrs:TStrings;PYIndexStr:string):string;
label NotFound;
var
i,j :integer;
hzchar :string;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[i][2*j-1]+ SourceStrs[i][2*j]; //一個漢字兩個字節, by zengzc
if (PYIndexStr[j]<>'?') and (UpperCase(PYIndexStr[j])<>GetPYIndexChar(hzchar))
then goto NotFound;
end;
if result=''
then result := SourceStrs[i]
else result := result + Char(13) + SourceStrs[i];
exit;
NotFound: result:='';
end;
end;
function GetNextSeq(FilePath : String ; Section : String ; KeyWord : String ; Step : integer ) : String;
{輸入: FilePath : Sequence所在的路徑和文件名 Section : 指定的區域 KeyWord : 指定的關鍵字
Step : 步長
結果:指定的序列號的內容.初始默認值為:1 }
var
MyIniFile : TIniFile;
NextVal : string;
begin
{具體的例子如下：
有一個文件(序列號),其名稱:c:\program files\Sequences_Vip.ini
其中詳細的內容如下:
[test_seq]
kkk=1
此時: FilePath = c:\program files\Sequences_Vip.ini
Section = test_seq
KeyWord = kkk
Step = 需要增加的步長
}
MyIniFile:=TIniFile.Create(FilePath);
GetNextSeq:=IntToStr(StrToInt(MyIniFile.ReadString(Section,KeyWord,'1'))+Step);
NextVal:=IntToStr(StrToInt(MyIniFile.ReadString(Section,KeyWord,'1'))+Step);
MyIniFile.WriteString(Section,KeyWord,NextVal);
MyIniFile.Free;
end;
function GetNormal_Month( Current_Date : TDateTime):String;
// 輸入 日期型數據，
// 輸出 ’YYYYMM ' ,該數據為正常出帳的年月
// 錯誤 返回'190001'
Var
Current_Year , Current_Month , Current_Day : String;
begin
//獲取正常的出帳月
Try
Current_Year := Copy(DateTimeToStr(Current_Date),1,4);
Current_Month := Copy(DateTimeToStr(Current_Date),6,2);
Current_Day := Copy(DateTimeToStr(Current_Date),9,2);
if (StrToInt(Current_Day)<=20) and (Current_Month='01') then
//該月份為正常出帳月的12月
Result:=IntToStr(StrToInt(Current_Year)-1)+'12' //去年的12月
else
begin
if ((StrToInt(Current_Day)>20) and (Current_Month='11')) or (Current_Month='12') then
Result:=Current_Year+'11' //正常的11月份
else
begin
if StrToInt(Current_Month)=11 then //正常的10月份，日期為兩個位數
Result:=Current_Year+'10'
else
begin
if StrToInt(Current_Day)>20 then
Result:=Current_Year+Current_Month
else
Result:=Current_Year+'0'+IntToStr(StrToInt(Current_Month)-1);
end
end;
end;
except
Result := '190001';
end;
end;
function GetCurrentMax_Month( Current_Date_YYYYMMDD : String):String;
//輸入：年月 ’ YYYYMMDD ' (年月日為當前年月日)
//輸出：正常出帳月的最大的出帳日期
//錯誤的時候輸出：111111
var
Current_Year , Current_Month , Current_Day : String;
begin
//獲取指定月份的最大出帳年月日
try
Current_Year := Copy ( Current_Date_YYYYMMDD , 1 , 4 ) ;
Current_Month := Copy ( Current_Date_YYYYMMDD , 5 , 2 );
Current_Day := Copy ( Current_Date_YYYYMMDD , 7 , 2 );
if (Current_Month='12') or ((Current_Month='11') and (StrToInt(Current_Day)>20)) then
//正常出帳月為11月，其最大的出帳日期為：1120
Result := Current_Year+'1120'
else
begin
if (StrToInt(Current_Day)<=20) and (Current_Month='01') then
//正常出帳月為12月，其最大的出帳日期為：去年的1231
Result := IntToStr(StrToInt(Current_Year)-1) + '1231'
else
if (StrToInt(Current_Month)>10) then
Result:=Current_Year+IntToStr(StrToInt(Current_Month)-1)+'20'
else
begin
if (StrToInt(Current_Day)>20) then //正常的10月份，日期為兩個位數
Result:=Current_Year+Current_Month+'20'
else
Result:=Current_Year+'0'+IntToStr(StrToInt(Current_Month)-1)+'20';
end;
end;
except
Result := '111111';
end;
end;
function GetCurrentMin_Month( Current_Date_YYYYMMDD : String):String;
//輸入：年月 ’ YYYYMMDD ' (年月日為當前年月日)
//輸出：正常出帳月的最小的出帳日期
//錯誤的時候輸出：111111
var
Current_Year , Current_Month , Current_Day : String;
begin
//獲取指定月份的最小出帳年月日
try
Current_Year := Copy ( Current_Date_YYYYMMDD , 1 , 4 ) ;
Current_Month := Copy ( Current_Date_YYYYMMDD , 5 , 2 );
Current_Day := Copy ( Current_Date_YYYYMMDD , 7 , 2 );
if (Current_Month='12') or ((Current_Month='11') and (StrToInt(Current_Day)>20)) then
//正常出帳月為11月，其最大的出帳日期為：1120
Result := Current_Year+'1021'
else
begin
if (StrToInt(Current_Day)<=20) and (Current_Month='01') then
//正常出帳月為12月，其最大的出帳日期為：去年的1231
Result := IntToStr(StrToInt(Current_Year)-1) + '1121'
else
begin
if ((Current_Month='01') and (StrToInt(Current_Day)>20)) or ((Current_Month='01') and (StrToInt(Current_Day)>20)) then
Result:=Current_Year+'0101'
else
if (StrToInt(Current_Month)>11) then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -