【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“GDZCCommon.pas”一文,供大家参考学习
unit GDZCCommon;
interface
uses
Windows, SysUtils, Forms, DBGrids, DB;
resourcestring
conIniFile = 'Database.ini';
var
EXEPath: string; //主程序路径
function GetExePath: string;
procedure InitDBGrid(AFields: TDataSet; ADBGrid: TDBGrid);
function IsNumeric(const s: string): Boolean;
function ConfirmDlg(const AMsg: string; ACancelButton: Boolean = False;
ADefaultButton: Integer = 1): Integer;
implementation
function GetExePath: string;
begin
Result := ExtractFilePath(ParamStr(0));
end;
procedure InitDBGrid(AFields: TDataSet; ADBGrid: TDBGrid);
var
l_Col:TColumn;
begin
ADBGrid.Columns.Clear;
with AFields do
begin
if not Active then Open;
First;
while not Eof do
begin
l_COL := ADBGrid.Columns.Add;
with l_COL do
begin
FieldName := Trim(FieldByName('FieldName').AsString);
Title.Caption := Trim(FieldByName('TitleName').AsString);
Width := FieldByname('Width').AsInteger;
end;
Next;
end;
end;
end;
function IsNumeric(const s: string): Boolean;
var
l_Code: Integer;
l_Str: string;
F: Double;
begin
Result := True;
l_Str := Trim(s);
try
Val(l_Str, F, l_Code);
except
Result := False;
end;
Result := Result and (l_Code = 0);
if Length(l_Str) >= 1 then
Result := Result and (not (l_Str[1] in ['e', 'E']));
end;
function ConfirmDlg(const AMsg: string; ACancelButton: Boolean = False;
ADefaultButton: Integer = 1): Integer;
var
l_Flags: Integer;
begin
if ACancelButton then
l_Flags := MB_YESNOCANCEL + MB_ICONQUESTION + MB_APPLMODAL
else
l_Flags := MB_YesNo + MB_ICONQUESTION + MB_APPLMODAL;
case ADefaultButton of
2: l_Flags := l_Flags + MB_DEFBUTTON2;
3: l_Flags := l_Flags + MB_DEFBUTTON3;
4: l_Flags := l_Flags + MB_DEFBUTTON4;
end;
Result := Application.MessageBox(PChar(AMsg), PChar('确认'), l_Flags);
end;
end.
上一篇:
GDZCBS.pas
下一篇:
2018年汽车自驾运动营地攻防箭大赛总决赛圆满落幕