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
Funciones Delphi |