Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Нижеследующая функция Locate может оказаться весьма полезной (конечно, она не может предложить вам глобальную функциональность типа чуствительность к регистрам, использование индексов, закладок, но все же...).
functionLocate(const
oTable: TTable; const
oField: TField; const
sValue: string
): Boolean; var
bmPos: TBookMark; bFound: Boolean; begin
Locate := FALSE
; bFound := FALSE
; if
not
oTable.Active then
Exit; if
oTable.FieldDefs.IndexOf(oField.FieldName) < 0 then
Exit; bmPos := oTable.GetBookMark; with
oTable do
begin
DisableControls; First; while
not
EOF do
if
oField.AsString = sValue then
begin
Locate := TRUE
; bFound := TRUE
; Break; end
; end
; end
;