Các phương pháp Tìm và Định vị của TDataset có ở đâu?

Question

Tôi đang làm việc để hiện đại hóa và sửa lỗi trong codebase của một chương trình 4 thời đại Delphi được viết bởi người khác. Rất nhiều mã là đáng sợ theo tiêu chuẩn hiện đại, và tôi không thể không tự hỏi nếu một số điều tôi thấy là có bởi vì tác giả ban đầu không biết về các tính năng thư viện chuẩn nào đó, hoặc nếu họ bị ' t có sẵn.

Một trong những "mô hình" đáng ghét càng thấy trên tất cả các ứng dụng trông như thế này:

table := TClientDataset.Create; 
with table do 
begin 
    CloneCursor(dmDatabase.OriginalTable, false, true); 
    filtered := true; 
    active := true; 
    first; 
    while not EOF do 
    begin 
    if fieldByName('whatever').AsString = 'some criteria' then break; 
    next; 
    end; 
    if EOF then exit; 
    //do something based on the current row of the dataset 
    table.free; 
end; 

Hầu như mỗi người trong các nhóm này có thể được thay thế bằng một cuộc gọi một dòng hoặc là Lookup hoặc Locate trên tập dữ liệu gốc, không cần CDS trung gian. Điều đó khiến tôi tự hỏi, liệu những phương pháp này có sẵn trong những ngày D4 không? Lần đầu tiên được thêm Lookup và Locate?

Answer 1

Tra cứu và định vị được giới thiệu ở Delphi 2. Có vẻ như tác giả gốc đã không tận dụng lợi thế của chúng.

Answer 2

Dường như lập trình viên ban đầu muốn đảm bảo rằng con trỏ hàng không bị thay đổi . Làm Locate (hoặc Lookup) sẽ thay đổi con trỏ hàng, kích động tất cả các loại của sự kiện dữ liệu (Datasource.OnDataChange, Dataset.AfterScroll và vv).

Thực hiện tìm kiếm với TClientDataset.CloneCursor, không có sự kiện nào trong số những sự kiện này được kích hoạt trên dmDatabase.OriginalTable và không cần phải tải lại dữ liệu từ cơ sở dữ liệu.

Dường như với tôi đó là ý định. TClientDataset đã được trình bày trên D3. Và các con trỏ được nhân bản là một loại tính năng nâng cao - và cần dmDatabase.OriginalTable cũng là một CDS.