各位好，如果我在Form1宣告一個StringList儲存了文字資料，請問要如何在另一個Form2使用它呢？因為我在Form2想要將一個有多筆記錄的文字檔讀進StringList，再和Form1的那個StringList比對，若Form1 StringList的某筆資料是Form2 StringList所沒有的，則新增至Form2 StringList，若已經有的資料則不動作…此外這個比對的動作應該如何寫比較好呢？我用兩個迴圈結果非常慢，幾乎要當了…請問有何比較好的方式或是StringList有何方法可用呢？ Thanks a lot!!

在 Form2 的 implementation 下 uses Form1 參照 Form1 的 TStringList 時使用 Form1.StringList 相關方法 sort() 和 find() 可以比較看看, 使用 find() 或自行寫迴圈比對(利用雙方皆已排序這個特色來設計) 兩種方法哪個快 (個人認為在這個運用中自己寫迴圈可以比較快) 發表人 - Brian77 於 2004/12/27 11:13:10

ultradev: 你可以利用extern來宣告.範例如下

//Form1.hpp
extern TStringList *SL;
//Form1.cpp
TStringList *SL;    //Form2.hpp
#include "Form1.h"

這樣一來你就可以在Form2使用SLㄌ.

幫忙實作Brian77大大的方法, 因為手上沒有BCB,謹供參考.

procedure TForm1.Button1Click(Sender: TObject);
var
  I, Index: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Duplicates := dupIgnore;
    SL.Sorted := True;
    SL := Self.StringList.Text;
    for I := 0 to From1.StringList.Count-1 do
      if not SL.Find(From1.StringList[I], Index) then
      begin
        SL.Add(From1.StringList[I]);
        Self.StringList.Add(From1.StringList[I]);
      end;
  finally
    FreeAndNil(SL);
  end;
end;    

更正,

 
procedure TForm2.Button1Click(Sender: TObject);
var
  I, Index: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Duplicates := dupIgnore;
    SL.Sorted := True;
    SL := Self.StringList.Text;
    for I := 0 to From1.StringList.Count-1 do
      if not SL.Find(From1.StringList[I], Index) then
      begin
        SL.Add(From1.StringList[I]);
        Self.StringList.Add(From1.StringList[I]);
      end;
  finally
    FreeAndNil(SL);
  end;
end;

謝謝各位的回答囉!