[Casimiro Noteví]

Para muestra un botón, el siguiente código corresponde a la propiedad tablename del componente tztable de los componentes zeoslib:

Código Delphi [-]
procedure TZAbstractTable.SetTableName(const Value: string); 
begin 
  if FTableName <> Value then 
  begin 
    FTableName := Value; 
    if Value <> '' then 
      SQL.Text := Format('SELECT * FROM %s', [FTableName]) 
    else SQL.Text := ''; 
  end; 
end;