最近正在升级一个程序，使其支持多数据库。 原来的程序数据库为SQL Server，所以使用SQL Server 的“导入和导出数据”功能将一个 SQL Server 数据库转换成了Access数据库，但其中发现了一些问题，但也找到了解决方案，一并记录于此：1、转换程序会将SQL Server的视图转换成表，而不是Access的查询；2、在为字段设置默认值为空字符的时候，SQL Server用‘’（空单引号），而Access用“”（空双引号）；3、Access中没有GetDate()函数，应该使用Now(
var i:integer;begin for i:= 0 to ComponentCount -1 do begin if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then TEdit(Components[i]).Left:=TEdit(Components[i]).Left + 5; end;end;
varSearchText:string;k:integer;beginSearchText:='ABC'; //查找edit1中输入的文本k:=pos(SearchText,memo1.Text); //求出首次出现SearchText的位置if k=0 then//showmessage('找不到')elsebeginmemo1.SelStart:=k;memo1.SelLength:=length(SearchText);memo1.SetFocus; //这一句很
Delphi 中有 iif() 函数吗？iif() 函数其实就是简化了的 if then ，最早该函数出现在 Visual Basic 中，现在很多语言，比如 C#、Java、PHP 等，都有 ? : 语言结构，使用方法类似如下：if (x > 0) result = ‘A’ else result = ‘B’;result = iif(x > 0, ‘A’, ‘B’);result = x > 0 ? ‘A’ : ‘B’;上面三条语句结果是一样的，如果条件 x > 0 则返回
在做一些和硬件通讯的程序中，交换和读写的数据格式有时是 16 进制，比如说从 IC 卡 或 ID 卡获取到的数据，把他们转换成 10 进制可能更便于使用。Delphi 中 16 进制数以 $ 为前缀，所以将 16 进制形式的字符串转换为整数即可：function HexToDec(const AHexString: String): Integer;begin // 16 进制转换为 10 进制； Result := StrToInt(‘$’ + AHexString);end;
实现的方法很简单，在窗体添加一个 WebBrowser 组件，然后执行以下代码：WebBrowser1.Navigate('D:\Soft\HomePage.html');但随之而来出现了一个问题：WebBrowser 组件在未载入 HTML 之前是无边框的，当载入 HTML 之后，WebBrowser 四周出现了一个三维边框，和程序本身的风格极不协调，查看了 WebBrowser 的所有属性，没有属性可以改变这一设置。经过测试以后发现，该边框并不是 WebBrowser 产生的，而是
procedure TMain.N8Click(Sender: TObject);var OFile:String; HWndCalculator:HWnd;begin HWndCalculator:=FindWindow(nil,'计算器'); if (HWndCalculator=0) then begin OFile:='calc.exe'; Shellexecute(handle,'Open',pchar(OFile),nil
有10个EDIT控件，取名为EDT1，EDT2，EDT3。。。EDT10，如何用一个循环知道哪个EDIT控件的值是空的？procedure TForm1.Button2Click(Sender: TObject); var I:integer; begin for i:=0 to Self.Componentcount-1 do//Self.Componentcount就是TForm1的控件数量 begin