我是一名有用的助手,可以为您进行翻译。以下是需要翻译的内容:
几乎所有的这些组都可以被一个单行调用
我正在修改和修复由他人编写的Delphi 4时代程序的代码库,使其现代化。从现代标准来看,很多代码看起来有点可怕,我不禁想知道,我所看到的其中一些情况是否是因为原始作者不了解某些标准库功能,或者这些功能当时还不存在。
在应用程序中遍布的更令人讨厌的“模式”之一如下所示:
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;
几乎所有的这些组都可以被一个单行调用
Lookup
或Locate
函数替代,而无需任何中间CDS。这让我想知道,在D4时代这些方法是否可用?Lookup
和Locate
是什么时候首次添加的?
table
吗? - JRL