Format (‘Cadena con %s’, [textopor%s])

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:

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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario