Devuelve una cadena de texto con el formato especificado por los parámetros, colocará cada parámetro en la posición de %s por orden de aparición.
Ejemplo de utilización:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
procedure TformPartesAguaRiegoG.txtFincaClick(Sender: TObject); var filtro, campo, operador: string; begin if not varisnull(FormAgua.TAguaIDFinca.value) then begin Filtro := FormAgua.TAguaIDFinca.AsString; campo := 'IDFinca'; operador := '='; FormAgua.tsectores.filter := Format ('[%s] %s %s', [campo, operador, Filtro]); FormAgua.tsectores.filtered := true; FormAgua.tsectores.Refresh; txtSector.KeyValue := null; end; end; |
Unidad SysUtils
