delphi 常用函數和常見問題的解決方案（更新中……）

把一些我現在經常用到而且可能會忘記的delphi函數記錄下來，需要的時候來看看找找！

1.根據treeNode的id（data屬性裡儲存的）得到對應的節點？

解決辦法：迴圈整個樹的每一個節點，比對每一個節點的data屬性內的值是否和傳入的id一致。一致則返回當前節點，否則迴圈完畢就是沒找到。

例：

function GetTreeNodeByID(ATree: TTreeView; AID: integer): TTreeNode;

var i: integer;

begin

  result :=nil;

   for i :=0to
ATree.Items.Count-1do

    begin

      if PInteger(ATree.Items.Item[i].data)^= AIDthen

      begin result := ATree.Items.Item[i];

         Exit;

      end;

    end;

end;

 

2.比對兩個字串是否相等，如果是字母不區分大小寫？

sameText(str1,str2);如果相等則返回true，否則返回false

 

3.如何在子頁面關閉的時候取得子頁面的一個元素值  ？

例如我在Form1中調用From2，我Form2中有一個按鈕和一個Label：

procedure TForm1.test();

var

  form2 : TForm2;

begin

  form2 := TForm2.Create(self);

  if form2.ShowModal = mrOk then

  begin

    showMessage('Form2已經關閉了，我可以做相應操作了！它的Label的Caption為' + form2.Label.Caption);

  end;

end;

 

註：如果找到ATree中的TreeNode的data屬性值有儲存AID的則返回對應節點，否則返回nil；

 

4.在目標原字串中擷取子串的位置

Pos(sourceStr, str);//如果sourceStr中包含str，那麼則返回str第一次出現的位置，Pos('12345', '345') = 3;

 

5.如何在Delphi中同時有多個ActiveX可用？

 

學習Delphi已經有一段時間了，在這期間遇到的問題也不少，比如我的D7不能同時保證有兩個Activex控制項可用就很麻煩。換個項目就需要重新安裝一遍自己需要的Activex控制項，太麻煩了。解決辦法如下： 1.開啟Delphi，菜單→關閉所有（這部也可以不用，但是我們領導推薦我這樣做，所以我也推薦大家這樣做）； 2.找到“open”按鈕，單擊。依次找到“D:\Program Files\Borland\Delphi7\Lib\dclusr.dpk”，雙擊； 3.點擊“add”→選中第三個選項卡“Import ActiveX”→找到你要使用的第一個ActiveX控制項，然後點擊“OK”，繼續添加，把所有需要用到的都添加進去。然後點擊“Compile”，這時候你再看你的ActiveX就已經有你所有添加的控制項了。然後儲存（我不知道不儲存會不會成功，反正我感覺不儲存不會成功），搞定！