Funktion('string').membervar

[choose]

Hallo Pseudemys Nelsoni,

so sollte es i.A. klappen:

Delphi-Quellcode:

function GetRecordFromArrayThatMatchtesCriteria(const ACriteria: TCriteria): TMyRecord;
var
  i: Integer;
begin
  for i := Low(AnArray) to High(AnArray) do
    if RecordsMatchesCriteria(AnArray[i], ACriteria) then
    begin
      Result := AnArray[i];
      Exit;
    end;
   
  // no record found
  raise ERecordNotFound.Create('No suitable record found', ACriteria);
end;