Tady mas priklad na hledani v tabulce:
Table.First;
NaselJsem := False;
while not Table.EOF do
begin
if id = Fields[7].AsInteger then
begin
NaselJsem := True;
Break;
end;
Table.Next;
end;Funkce VarArrayOf() je definovana v unite Variants, takze pridat do Uses