<< Click to Display Table of Contents >> Navigation:  Export > ForEach

Iterate SQL Result, stop if funciton returns false.

 

procedure ForEach(AProcessor: THtSQLResultProc);
 
THtSQLResultProc = reference to function(Row: integer): boolean;

 

 

Example:

 
var V: PVarDynArray;
begin
  for V in THtSQL.FromFolder(SelectedFolder, 'select name from customers', []) do
    Memo1.Lines.Add(V^[0]);